From b18edec919980985b0a0af8a030948964cb1ad33 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 30 Aug 2021 02:16:07 +0200
Subject: [PATCH] Fix documentation
---
src/Quasar/Network/Multiplexer.hs | 2 +-
test/Quasar/Network/MultiplexerSpec.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Quasar/Network/Multiplexer.hs b/src/Quasar/Network/Multiplexer.hs
index abc0998..445f512 100644
--- a/src/Quasar/Network/Multiplexer.hs
+++ b/src/Quasar/Network/Multiplexer.hs
@@ -160,7 +160,7 @@ data MultiplexerSide = MultiplexerSideA | MultiplexerSideB
newMultiplexer :: (IsConnection a) => MultiplexerSide -> a -> IO Channel
newMultiplexer side x = do
channelMVar <- newEmptyMVar
- -- 'runMultiplexerProtcol' needs to be interruptible (so it can terminate when it is closed), so 'interruptible' is used to ensure that this function also works when used in 'bracket'
+ -- 'runMultiplexer' needs to be interruptible (so it can terminate when it is closed), so 'interruptible' is used to ensure that this function also works when used in 'bracket'
mask_ $ link =<< async (interruptible (runMultiplexer side (putMVar channelMVar) (toSocketConnection x)))
takeMVar channelMVar
diff --git a/test/Quasar/Network/MultiplexerSpec.hs b/test/Quasar/Network/MultiplexerSpec.hs
index 1291288..399db6b 100644
--- a/test/Quasar/Network/MultiplexerSpec.hs
+++ b/test/Quasar/Network/MultiplexerSpec.hs
@@ -13,7 +13,7 @@ import Network.Socket
import Test.Hspec
spec :: Spec
-spec = describe "runMultiplexerProtocol" $ parallel $ do
+spec = describe "runMultiplexer" $ parallel $ do
it "can be closed from the channelSetupHook" $ do
(x, _) <- newDummySocketPair
runMultiplexer MultiplexerSideA channelClose x
--
GitLab