From 8873ffbe77c1903698bd066a1181020e11629d5d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 1 May 2013 12:02:47 -0700
Subject: [PATCH] web: fix auto-exit in local mode, clarify startup messages

---
 hledger-web/Hledger/Web/Main.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index 5a91123fe..ef92c2d29 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -20,7 +20,6 @@ import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
 import Network.Wai.Handler.Launch (runUrlPort)
 --
 import Prelude hiding (putStrLn)
-import Control.Concurrent (forkIO)
 import Control.Monad (when)
 import Data.Text (pack)
 import System.Exit (exitSuccess)
@@ -68,11 +67,12 @@ web opts j = do
                                           ,appExtra = Extra "" Nothing
                                           }
   if server_ opts
-   then
+   then do
+    putStrLn "Press ctrl-c to quit"
+    hFlush stdout
     runSettings defaultSettings{settingsPort=p} app
    else do
-    putStrLn "Launching web browser" >> hFlush stdout
-    forkIO $ runUrlPort p "" app
-    putStrLn "Press ENTER, or close browser windows for 2 minutes, to quit web app" >> hFlush stdout
-    getLine >> exitSuccess
-    
+    putStrLn "Starting web browser"
+    putStrLn "Web app will auto-exit after a few minutes with no browsers (or press ctrl-c)"
+    hFlush stdout
+    runUrlPort p "" app