Skip to content

Commit 26a7009

Browse files
Build benchmark targets one at a time
1 parent 6f40be1 commit 26a7009

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

lib/BuildLib.hs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -265,5 +265,10 @@ runBuild :: String -> String -> String -> [String] -> IO ()
265265
runBuild buildProg package componentPrefix components = do
266266
let componentsWithContext =
267267
map (\c -> [str|#{package}:#{componentPrefix}:#{c}|]) components
268+
{-
268269
componentsWithContextStr = unwords componentsWithContext
269270
toStdoutV [str|#{buildProg} #{componentsWithContextStr}|]
271+
-}
272+
-- Build the targets serially, one at a time so that we can see the ghc
273+
-- memory stats to find out memory used by each target
274+
mapM_ (\x -> toStdoutV [str|#{buildProg} #{x}|]) componentsWithContext

0 commit comments

Comments
 (0)