diff --git a/src/Quasar/Network/Runtime.hs b/src/Quasar/Network/Runtime.hs
index 3aa9caec760329c0c130d0344a0413254b1493b1..0ab64afd23181113df42c1d09ca74c767fa98a35 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