More strictness.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs
index 22d111e2..66de6548 100644
--- a/src/Network/KRPC/Manager.hs
+++ b/src/Network/KRPC/Manager.hs
@@ -466,14 +466,14 @@ handleMessage raw (E e) = handleResponse raw (Left  e)
 listener :: MonadKRPC h m => m ()
 listener = do
   Manager {..} <- getManager
-  forever $ do
+  fix $ \again -> do
     (bs, addr) <- liftIO $ do
       handle exceptions $ BS.recvFrom sock (optMaxMsgSize options)
-
     case BE.parse bs >>= \r -> (,) r <$> BE.decode bs of
       -- TODO ignore unknown messages at all?
       Left  e       -> liftIO $ sendMessage sock addr $ unknownMessage e
       Right (raw,m) -> handleMessage raw m addr
+    again
   where
     exceptions :: IOError -> IO (BS.ByteString, SockAddr)
     exceptions e