diff options
author | Joey Hess <joey@kitenet.net> | 2014-07-16 16:14:51 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-07-16 16:14:51 -0400 |
commit | cee75b01040b7b7e95e8c81cb4d3cad4bc98b986 (patch) | |
tree | c528ff9cee280bb08db88870c0edf82479b7036a /Assistant.hs | |
parent | aacd5c6994aa6d8e6c4be83f1406642816c0621d (diff) |
missing lift
Diffstat (limited to 'Assistant.hs')
-rw-r--r-- | Assistant.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant.hs b/Assistant.hs index 63fdc6251d..82f1572414 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -76,7 +76,7 @@ startDaemon assistant foreground startdelay cannotrun listenhost startbrowser = Annex.changeState $ \s -> s { Annex.daemon = True } pidfile <- fromRepo gitAnnexPidFile logfile <- fromRepo gitAnnexLogFile - debugM desc $ "logging to " ++ logfile + liftIO $ debugM desc $ "logging to " ++ logfile #ifndef mingw32_HOST_OS createAnnexDirectory (parentDir logfile) logfd <- liftIO $ handleToFd =<< openLog logfile |