git.iko.soy/obelisk
on master help sign in
Don’t auto profile Main module
c0618d5Matthew Bauer
lib/command/src/Obelisk/Command/Run.hs+1−1
compare with master
unifiedsplit
@@ -118,7 +118,7 @@ run profiled = withProjectRoot "." $ \root -> do
118 withSystemTempFile "ob-run-profiled.hs" $ \hsFname hsHandle -> withSystemTempFile "ob-run" $ \exeFname exeHandle -> do
118 withSystemTempFile "ob-run-profiled.hs" $ \hsFname hsHandle -> withSystemTempFile "ob-run" $ \exeFname exeHandle -> do
119 liftIO $ hPutStr hsHandle exeSource
119 liftIO $ hPutStr hsHandle exeSource
120 liftIO $ hFlush hsHandle
120 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 ] ]
122 code <- liftIO $ waitForProcess ph1
122 code <- liftIO $ waitForProcess ph1
123 case code of
123 case code of
124 ExitSuccess -> do
124 ExitSuccess -> do