summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-30 13:29:06 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-30 13:29:06 -0400
commit031c44e7d5cdc0cf0445cd765d3295615bb873d9 (patch)
tree0ea342ae61023d75a0ee88539096a8dfb11e1fa4
parentce0f8684e38d66d1cffc3202153972d87bc69ef3 (diff)
fix build without the webapp
-rw-r--r--Assistant.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant.hs b/Assistant.hs
index 42175dd82..1488a3b82 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -135,7 +135,7 @@ import Control.Concurrent
stopDaemon :: Annex ()
stopDaemon = liftIO . Utility.Daemon.stopDaemon =<< fromRepo gitAnnexPidFile
-startDaemon :: Bool -> Bool -> Maybe (Url -> FilePath -> IO ()) -> Annex ()
+startDaemon :: Bool -> Bool -> Maybe (String -> FilePath -> IO ()) -> Annex ()
startDaemon assistant foreground webappwaiter
| foreground = do
showStart (if assistant then "assistant" else "watch") "."
@@ -148,7 +148,7 @@ startDaemon assistant foreground webappwaiter
where
go d = startAssistant assistant d webappwaiter
-startAssistant :: Bool -> (IO () -> IO ()) -> Maybe (Url -> FilePath -> IO ()) -> Annex ()
+startAssistant :: Bool -> (IO () -> IO ()) -> Maybe (String -> FilePath -> IO ()) -> Annex ()
startAssistant assistant daemonize webappwaiter = do
withThreadState $ \st -> do
checkCanWatch