diff options
| -rw-r--r-- | Assistant.hs | 4 |
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 |