xmppserver

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)
         h <- socketToHandle sock ReadWriteMode
         hSetBuffering h NoBuffering
         st'' <- startCon (h .*. st)
-        handle (\(SomeException _) -> return ()) $ fix $ \loop -> do
+        let doException (SomeException e) = Prelude.putStrLn ("\n\nexception: " ++ show e ++ "\n\n")
+        handle doException $ fix $ \loop -> do
             let continue () = hIsEOF h >>= flip when loop . not
             packet <- getPacket h
             g st'' packet continue