Switched to throw-to instead of hClose to quit reader thread

1 files changed, 4 insertions, 4 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 1d586900..e5ceaf2d 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -482,8 +482,8 @@ connectionThreads h pinglogic = do
         let finished e  = do
                           hClose h
                           -- warn $ "finished read: " <> bshow (fmap ioeGetErrorType e)
-                          let _ = fmap ioeGetErrorType e -- type hint
-                          -- let _ = fmap what e where what (SomeException _) = undefined
+                          -- let _ = fmap ioeGetErrorType e -- type hint
+                          let _ = fmap what e where what (SomeException _) = undefined
                           atomically $ do tryTakeTMVar outs
                                           putTMVar outs Nothing -- quit writer
                                           putTMVar doner ()
@@ -498,8 +498,8 @@ connectionThreads h pinglogic = do
 
     writerThread <- forkIO . fix $ \loop -> do
         let finished = do -- warn $ "finished write"
-                          hClose h -- quit reader
-                          -- throwTo readerThread (ErrorCall "EOF")
+                          -- hClose h -- quit reader
+                          throwTo readerThread (ErrorCall "EOF")
                           atomically $ putTMVar donew ()
         mb <- atomically $ readTMVar outs
         case mb of Just bs -> handle (\(SomeException e)->finished)