diff options
Diffstat (limited to 'Presence')
| -rw-r--r-- | Presence/Server.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Presence/Server.hs b/Presence/Server.hs index c41f047f..5dce323c 100644 --- a/Presence/Server.hs +++ b/Presence/Server.hs | |||
| @@ -54,7 +54,8 @@ doServer port g startCon = runServer2 port (runConn2 g) | |||
| 54 | h <- socketToHandle sock ReadWriteMode | 54 | h <- socketToHandle sock ReadWriteMode |
| 55 | hSetBuffering h NoBuffering | 55 | hSetBuffering h NoBuffering |
| 56 | st'' <- startCon (h .*. st) | 56 | st'' <- startCon (h .*. st) |
| 57 | handle (\(SomeException _) -> return ()) $ fix $ \loop -> do | 57 | let doException (SomeException e) = Prelude.putStrLn ("\n\nexception: " ++ show e ++ "\n\n") |
| 58 | handle doException $ fix $ \loop -> do | ||
| 58 | let continue () = hIsEOF h >>= flip when loop . not | 59 | let continue () = hIsEOF h >>= flip when loop . not |
| 59 | packet <- getPacket h | 60 | packet <- getPacket h |
| 60 | g st'' packet continue | 61 | g st'' packet continue |