From 8d9892f7fe0cba8b3c0b14aa6897acef93e52f91 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 16 Jul 2014 16:14:51 -0400
Subject: missing lift

---
 Assistant.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Assistant.hs')

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
-- 
cgit v1.2.3