From acad770fc247497b4fd981e42dd31a32b336d903 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 30 Aug 2021 23:10:20 +0200
Subject: [PATCH] Fix internal name
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
src/Quasar/Network/Multiplexer.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Quasar/Network/Multiplexer.hs b/src/Quasar/Network/Multiplexer.hs
index 6a45bbc..2d0e73d 100644
--- a/src/Quasar/Network/Multiplexer.hs
+++ b/src/Quasar/Network/Multiplexer.hs
@@ -436,8 +436,8 @@ channelClose = dispose
instance IsDisposable Channel where
toDisposable channel = toDisposable channel.resourceManager
-disposeChannel :: Channel -> IO (Awaitable ())
-disposeChannel channel = do
+channelCloseInternal :: Channel -> IO (Awaitable ())
+channelCloseInternal channel = do
-- Change channel state of all unclosed channels in the tree to closed
channelWasClosed <- channelClose' channel
@@ -576,7 +576,7 @@ newChannel parentResourceManager worker channelId connectionState = do
receiveStateMVar,
handlerAtVar
}
- attachDisposeAction resourceManager (disposeChannel channel)
+ attachDisposeAction resourceManager (channelCloseInternal channel)
State.modify $ \multiplexerState -> multiplexerState{channels = HM.insert channelId channel multiplexerState.channels}
pure channel
--
GitLab