fix build

This commit is contained in:
Joey Hess 2013-05-02 20:38:57 -04:00
parent 29df1a6bec
commit 886897f627

View file

@ -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