From cc3dd8b840198f37fe678c489367cb1e62cbf13d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Domen=20Ko=C5=BEar?= Date: Fri, 29 Dec 2023 12:17:29 +0000 Subject: [PATCH] closes #209 --- src/Network/WebSockets/Connection.hs | 5 ++--- src/Network/WebSockets/Server.hs | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/Network/WebSockets/Connection.hs b/src/Network/WebSockets/Connection.hs index 002a224..57f1f55 100644 --- 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 () \ No newline at end of file + Nothing -> return () diff --git a/src/Network/WebSockets/Server.hs b/src/Network/WebSockets/Server.hs index 184aace..fcaeea4 100644 --- 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 - } \ No newline at end of file + }