haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Code cleanup and output exit status of build.

Browse Source
This commit is contained in:
hirschen 2012-04-18 08:59:35 +02:00
parent 204c8cc744
commit 101ef2497c
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
yesod/Devel.hs
View File

@ -129,19 +129,17 @@ devel opts passThroughArgs = do
putStrLn "Terminating development server..." putStrLn "Terminating development server..."
terminateProcess ph terminateProcess ph
ec <- waitForProcess' ph ec <- waitForProcess' ph
putStrLn $ "Exit code: " ++ show ec
Ex.throwTo watchTid (userError "process finished") Ex.throwTo watchTid (userError "process finished")
watchForChanges hsSourceDirs [cabal] list watchForChanges hsSourceDirs [cabal] list
runBuildHook :: Maybe String -> IO () runBuildHook :: Maybe String -> IO ()
runBuildHook m = case m of runBuildHook (Just s) = do
Just s -> do ret <- system s
ret <- system s case ret of
case ret of ExitFailure f -> putStrLn $ "Error executing hook: " ++ s
ExitFailure f -> putStrLn $ "Error executing hook: " ++ s otherwise -> return ()
otherwise -> return () runBuildHook Nothing = return ()
Nothing -> return ()
{- {-
configure with the built-in Cabal lib for non-cabal-dev, since configure with the built-in Cabal lib for non-cabal-dev, since