diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-30 13:29:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-30 13:29:06 -0400 |
| commit | 031c44e7d5cdc0cf0445cd765d3295615bb873d9 (patch) | |
| tree | 0ea342ae61023d75a0ee88539096a8dfb11e1fa4 | |
| parent | ce0f8684e38d66d1cffc3202153972d87bc69ef3 (diff) | |
fix build without the webapp
| -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 |