From 71e1e5761560159bc3cb259cab69d0390d98d070 Mon Sep 17 00:00:00 2001
From: Luite Stegeman <stegeman@gmail.com>
Date: Tue, 6 Sep 2011 09:27:19 +0200
Subject: [PATCH] wait for file changes after server has quit

---
 yesod/Devel.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index 00bd40f2..e4843861 100755
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@@ -97,6 +97,7 @@ mainLoop isDevel = forever $ do
    ec <- waitForProcess ph
    putStrLn $ "Exit code: " ++ show ec
    Ex.throwTo watchTid (userError "process finished")
+   watchForChanges list
 
 try_ :: forall a. IO a -> IO ()
 try_ x = (Ex.try x :: IO (Either Ex.SomeException a)) >> return ()