closes #209

jaspervdj · Dec 29, 2023 · cc3dd8b · cc3dd8b
1 parent b76337d
commit cc3dd8b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/Network/WebSockets/Connection.hs b/src/Network/WebSockets/Connection.hs
@@ -1,6 +1,5 @@
 --------------------------------------------------------------------------------
--- | This module exposes connection internals and should only be used if you
--- really know what you are doing.
+-- | This module exposes connection internals
 {-# LANGUAGE OverloadedStrings #-}
 module Network.WebSockets.Connection
     ( PendingConnection (..)
@@ -454,4 +453,4 @@ pingThread conn n action
 
     ignore e = case fromException e of
         Just async -> throwIO (async :: AsyncException)
-        Nothing    -> return ()
+        Nothing    -> return ()
diff --git a/src/Network/WebSockets/Server.hs b/src/Network/WebSockets/Server.hs
@@ -149,7 +149,7 @@ runApp socket opts app =
 
 --------------------------------------------------------------------------------
 -- | Turns a socket, connected to some client, into a 'PendingConnection'. The
--- 'PendingConnection' should be closed using 'Stream.close' later.
+-- 'PendingConnection' should be closed using 'pendingStream' and 'Stream.close' later.
 makePendingConnection
     :: Socket -> ConnectionOptions -> IO PendingConnection
 makePendingConnection socket opts = do
@@ -171,4 +171,4 @@ makePendingConnectionFromStream stream opts = do
             , pendingRequest  = request
             , pendingOnAccept = \_ -> return ()
             , pendingStream   = stream
-            }
+            }