From 5a29eec9c76f2d89e9311075fbf80ca4e7cd79b0 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 26 Nov 2012 15:32:42 +0200
Subject: [PATCH] Debug output for Devel.hs

---
 yesod/Devel.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index 9952239d..2761c9e8 100644
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@@ -121,10 +121,14 @@ defaultDevelOpts = DevelOpts False False False (-1) Nothing Nothing Nothing
 reverseProxy :: IO ()
 reverseProxy = withSocketsDo $ do
     manager <- newManager def
-    run 3000 $ waiProxyTo
-        (const $ return $ Right $ ProxyDest "127.0.0.1" 3001)
-        onExc
-        manager
+    forever $ do
+        run 3000 $ waiProxyTo
+            (const $ return $ Right $ ProxyDest "127.0.0.1" 3001)
+            onExc
+            manager
+        putStrLn "Reverse proxy stopped, but it shouldn't"
+        threadDelay 1000000
+        putStrLn "Restarting reverse proxy"
   where
     onExc _ _ = return $ responseLBS
         status200