From 475c88d767be059065bd28346252f19bef2114ad Mon Sep 17 00:00:00 2001
From: Bruno Bigras <bigras.bruno@gmail.com>
Date: Wed, 1 May 2013 15:48:16 +0000
Subject: Fix the URL not showing until the app closes

---
 Command/WebApp.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Command/WebApp.hs b/Command/WebApp.hs
index f85628d28..da97ed288 100644
--- a/Command/WebApp.hs
+++ b/Command/WebApp.hs
@@ -137,6 +137,7 @@ firstRun listenhost = do
 	mainthread v url htmlshim
 		| isJust listenhost = do
 			putStrLn url
+			hFlush stdout
 			go
 		| otherwise = do
 			browser <- maybe Nothing webBrowser <$> Git.Config.global
@@ -154,6 +155,7 @@ firstRun listenhost = do
 openBrowser :: Maybe FilePath -> FilePath -> Maybe Handle -> Maybe Handle -> IO ()
 openBrowser mcmd htmlshim outh errh = do
 	hPutStrLn (fromMaybe stdout outh) $ "Launching web browser on " ++ url
+	hFlush stdout
 	environ <- cleanEnvironment
 	(_, _, _, pid) <- createProcess p
 		{ env = environ
-- 
cgit v1.2.3