From 4318f594d544320825093de8661ed1b40e4774d5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 30 Oct 2012 17:14:26 -0400
Subject: finished pushing Assistant monad into all relevant files

All temporary and old functions are removed.
---
 Assistant/Threads/PushNotifier.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Assistant/Threads/PushNotifier.hs')

diff --git a/Assistant/Threads/PushNotifier.hs b/Assistant/Threads/PushNotifier.hs
index b50a2e4b9..d2d5e08bf 100644
--- a/Assistant/Threads/PushNotifier.hs
+++ b/Assistant/Threads/PushNotifier.hs
@@ -26,10 +26,10 @@ import Data.Time.Clock
 
 pushNotifierThread :: NamedThread
 pushNotifierThread = NamedThread "PushNotifier" $ do
-	iodebug <- asIO debug
-	iopull <- asIO pull
-	iowaitpush <- asIO $ const waitPush
-	ioclient <- asIO2 $ xmppClient $ iowaitpush ()
+	iodebug <- asIO1 debug
+	iopull <- asIO1 pull
+	iowaitpush <- asIO $ waitPush
+	ioclient <- asIO2 $ xmppClient $ iowaitpush
 	forever $ do
 		tid <- liftIO $ forkIO $ ioclient iodebug iopull
 		waitRestart
-- 
cgit v1.2.3