From d61d6e1f8ae90cb5babbe1334bc7fd13c4eb90eb Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 5 Nov 2012 19:39:08 -0400
Subject: better handling of lifting from XMPP -> Assistant

---
 Assistant.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Assistant.hs')

diff --git a/Assistant.hs b/Assistant.hs
index 5cc9f303f..4a21a2ae9 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -177,7 +177,7 @@ startAssistant assistant daemonize webappwaiter = withThreadState $ \st -> do
 	checkCanWatch
 	dstatus <- startDaemonStatus
 	liftIO $ daemonize $
-		runAssistant go =<< newAssistantData st dstatus
+		flip runAssistant go =<< newAssistantData st dstatus
   where
 	go = do
 		d <- getAssistant id
@@ -216,6 +216,5 @@ startAssistant assistant daemonize webappwaiter = withThreadState $ \st -> do
 	assist a = (False, a)
 	startthread d (watcher, t)
 		| watcher || assistant = void $ liftIO $ forkIO $
-			flip runAssistant d $
-				runNamedThread t
+			runAssistant d $ runNamedThread t
 		| otherwise = noop
-- 
cgit v1.2.3