Fix documentation

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
 

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