From 101ef2497c949720853273224ef1d59f51278ac4 Mon Sep 17 00:00:00 2001
From: hirschen <falco.hirschenberger@itwm.fraunhofer.de>
Date: Wed, 18 Apr 2012 08:59:35 +0200
Subject: [PATCH] Code cleanup and output exit status of build.

---
 yesod/Devel.hs | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

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