Dump processes using memory.

tweag · Jan 2, 2024 · 8918cb6 · 8918cb6
1 parent d894e35
commit 8918cb6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/rules_haskell_tests/tests/RunTests.hs b/rules_haskell_tests/tests/RunTests.hs
@@ -182,7 +182,8 @@ shutdownBazel = do
 printMem :: String -> IO ()
 printMem msg = do
   putStrLn msg
-  (_, stdOut, _) <- Process.readProcessWithExitCode "/usr/bin/memory_pressure" [] ""
+  -- (_, stdOut, _) <- Process.readProcessWithExitCode "/usr/bin/memory_pressure" [] ""
+  (_, stdOut, _) <- Process.readProcessWithExitCode "/usr/bin/top" ["-l", "1", "-s", "0", "-o", "mem", "-n", "15"] ""
   putStrLn stdOut
 
 -- Generated dependencies for testing the ghcide support