git.iko.soy/obelisk
on master help sign in
Don’t auto profile Main module

This module will always be there, and no need to add annotations. backend & frontend still get their annotations.

commitc0618d59c1163b6a2f44492a80d8a09b7bc86ff5 authorMatthew Bauer <mjbauer95@gmail.com> dateTue 11 Feb 2020, 12:41 (7 years ago) parent78d05a2
1 file changed+1−1
compare with master
unifiedsplit
lib/command/src/Obelisk/Command/Run.hs+1−1
lib/command/src/Obelisk/Command/Run.hs+1−1
@@ -118,7 +118,7 @@ run profiled = withProjectRoot "." $ \root -> do
118118 withSystemTempFile "ob-run-profiled.hs" $ \hsFname hsHandle -> withSystemTempFile "ob-run" $ \exeFname exeHandle -> do
119119 liftIO $ hPutStr hsHandle exeSource
120120 liftIO $ hFlush hsHandle
121− (_, _, _, ph1) <- createProcess_ "nixGhcWithProfiling" $ setCwd (Just root) $ proc "nix-shell" [ "-p", "((import ./. {}).profiled.ghc.ghcWithPackages (p: [ p.backend p.frontend]))", "--run", unwords [ "ghc", "-x", "hs", "-prof", "-fprof-auto", hsFname, "-o", exeFname ] ]
121+ (_, _, _, ph1) <- createProcess_ "nixGhcWithProfiling" $ setCwd (Just root) $ proc "nix-shell" [ "-p", "((import ./. {}).profiled.ghc.ghcWithPackages (p: [ p.backend p.frontend]))", "--run", unwords [ "ghc", "-x", "hs", "-prof", "-fno-prof-auto", hsFname, "-o", exeFname ] ]
122122 code <- liftIO $ waitForProcess ph1
123123 case code of
124124 ExitSuccess -> do