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 | 8d9892f7fe0cba8b3c0b14aa6897acef93e52f91 (patch) | |
| tree | 4045f02c9cee3d9ff3f96b3d4651b1cf1352998d /Assistant.hs | |
| parent | 8553b30c98af907fbdac6bec74f80ab097a67b09 (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 63fdc6251..82f157241 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 |