diff options
author | 2012-10-30 17:14:26 -0400 | |
---|---|---|
committer | 2012-10-30 17:14:51 -0400 | |
commit | 4318f594d544320825093de8661ed1b40e4774d5 (patch) | |
tree | 709dcd2fe739c503651bc7bd5e1df35a52a27977 /Assistant/Threads/PushNotifier.hs | |
parent | 07cd1b2b40735d460c8225762fcf3992b9886c60 (diff) |
finished pushing Assistant monad into all relevant files
All temporary and old functions are removed.
Diffstat (limited to 'Assistant/Threads/PushNotifier.hs')
-rw-r--r-- | Assistant/Threads/PushNotifier.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |