close socket on ping timeout

1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/ServerC.hs b/Presence/ServerC.hs
index d8cca897..0acfb20a 100644
--- a/Presence/ServerC.hs
+++ b/Presence/ServerC.hs
@@ -57,7 +57,7 @@ dummyServerHandle = do
     return (ServerHandle sock)
 
 quitListening :: ServerHandle -> IO ()
-quitListening (ServerHandle socket) = sClose socket
+quitListening (ServerHandle socket) = Socket.sClose socket
 
 
 data AcceptResult =
@@ -146,5 +146,5 @@ runConn g st (sock,_) = do
         h <- socketToHandle sock ReadWriteMode
         hSetBuffering h NoBuffering
         let doException (SomeException e) = debugStr ("\n\nexception: " ++ show e ++ "\n\n")
-        handle doException (g (restrictSocket sock `HCons` st) (packets h) (packetSink h))
+        handle doException (g (restrictHandleSocket h sock `HCons` st) (packets h) (packetSink h))
         hClose h