From 886897f627dae30f17c1559635ef52bb6e8f2c96 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 2 May 2013 20:38:57 -0400
Subject: [PATCH] fix build

---
 Command/WebApp.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Command/WebApp.hs b/Command/WebApp.hs
index f3bed10cbf..b4307a21fb 100644
--- a/Command/WebApp.hs
+++ b/Command/WebApp.hs
@@ -63,7 +63,10 @@ start' allowauto listenhost = do
 		ifM (checkpid <&&> checkshim f)
 			( if isJust listenhost
 				then error "The assistant is already running, so --listen cannot be used."
-				else liftIO $ openBrowser browser f Nothing Nothing
+				else do
+					url <- liftIO . readFile
+						=<< fromRepo gitAnnexUrlFile
+					liftIO $ openBrowser browser f url Nothing Nothing
 			, startDaemon True True listenhost $ Just $ 
 				\origout origerr url htmlshim ->
 					if isJust listenhost