mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2013-05-02 20:38:57 -04:00
parent 29df1a6bec
commit 886897f627
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/WebApp.hs
View file

@ -63,7 +63,10 @@ start' allowauto listenhost = do
ifM (checkpid <&&> checkshim f) ifM (checkpid <&&> checkshim f)
( if isJust listenhost ( if isJust listenhost
then error "The assistant is already running, so --listen cannot be used." 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 $ , startDaemon True True listenhost $ Just $
\origout origerr url htmlshim -> \origout origerr url htmlshim ->
if isJust listenhost if isJust listenhost