diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 02:21:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 02:21:04 -0400 |
| commit | 579f63b6b756ca51b8f9fe53c3e668500718d91f (patch) | |
| tree | 20039581df67e034ef434749d37de41e9802d21d /Assistant/Threads/PairListener.hs | |
| parent | 040f68d628120e112e22bfb7100f9650dec940c8 (diff) | |
Assistant monad, stage 2.5
Converted several threads to run in the monad.
Added a lot of useful combinators for working with the monad.
Now the monad includes the name of the thread.
Some debugging messages are disabled pending converting other threads.
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 9875dcb8a..116cc0fa1 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -28,7 +28,7 @@ thisThread :: ThreadName thisThread = "PairListener" pairListenerThread :: ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> UrlRenderer -> NamedThread -pairListenerThread st dstatus scanremotes urlrenderer = thread $ withSocketsDo $ +pairListenerThread st dstatus scanremotes urlrenderer = thread $ liftIO $ withSocketsDo $ runEvery (Seconds 1) $ void $ tryIO $ do sock <- getsock go sock [] [] |