Fix mem stats

We parse maxResidency and allocatedBytes from the RTS -S output, but runSessionWithHandles kills the server without waiting for it to exit and these stats don't get logged.

The solution is to use runSessionWithHandles', but unfortunately it is internal and not exposed. I have raised a PR to expose it and in the meantime we need a source repo package.

Author: pepeiborra

cabal.project

@@ -65,6 +65,14 @@ source-repository-package
   tag: 7a0af7a8fd38045fd15fb13445bdcc7085325460
   -- https://github.com/tibbe/ekg-json/pull/12
 
+-- Needed for ghcide-bench until a new release of lsp-test is out
+source-repository-package
+  type:git
+  location: https://github.com/haskell/lsp
+  subdir: lsp-test
+  tag: c95eb06c70c35f1e13c37ed11a7d9e5b36bfa2e8
+  -- https://github.com/haskell/lsp/pull/450
+
 allow-newer:
   -- ghc-9.2
   ----------

ghcide-bench/src/Experiments.hs

@@ -346,15 +346,15 @@ runBenchmarksFun dir allBenchmarks = do
   results <- forM benchmarks $ \b@Bench{name} ->  do
     let p = (proc (ghcide ?config) (allArgs name dir))
                 { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe }
-        run sess = withCreateProcess p $ \(Just inH) (Just outH) (Just errH) _pH -> do
+        run sess = withCreateProcess p $ \(Just inH) (Just outH) (Just errH) pH -> do
                     -- Need to continuously consume to stderr else it gets blocked
                     -- Can't pass NoStream either to std_err
                     hSetBuffering errH NoBuffering
                     hSetBinaryMode errH True
                     let errSinkThread =
                             forever $ hGetLine errH >>= when (verbose ?config). putStrLn
                     withAsync errSinkThread $ \_ -> do
-                        runSessionWithHandles inH outH conf lspTestCaps dir sess
+                        runSessionWithHandles' (Just pH) inH outH conf lspTestCaps dir sess
     (b,) <$> runBench run b
 
   -- output raw data as CSV