From f967d12ddf1353ba52846e82ddbb19ea3c58aebc Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 30 Aug 2021 23:10:31 +0200
Subject: [PATCH] Derive Stream instances

---
 src/Quasar/Network/Runtime.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Quasar/Network/Runtime.hs b/src/Quasar/Network/Runtime.hs
index 3aa9cae..0ab64af 100644
--- a/src/Quasar/Network/Runtime.hs
+++ b/src/Quasar/Network/Runtime.hs
@@ -146,6 +146,7 @@ serverHandleChannelMessage protocolImpl channel resources msg = case decodeOrFai
 
 
 newtype Stream up down = Stream Channel
+  deriving newtype (IsDisposable, HasResourceManager)
 
 newStream :: MonadIO m => Channel -> m (Stream up down)
 newStream = liftIO . pure . Stream
-- 
GitLab