diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-02 20:38:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-02 20:38:57 -0400 |
| commit | 848275d35cc620db15b25b3d6fc490bdde8fc415 (patch) | |
| tree | 4878671ef3e8103d8b423870b27897574f72c700 /Command/WebApp.hs | |
| parent | 35aafe26339309863b7162525dfcbe87c8caac2f (diff) | |
fix build
Diffstat (limited to 'Command/WebApp.hs')
| -rw-r--r-- | Command/WebApp.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index f3bed10cb..b4307a21f 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 |