diff --git a/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs b/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs index b40193a9703..afca1e26ed7 100644 --- a/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs +++ b/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs @@ -97,6 +97,7 @@ data RunMiniProtocol (mode :: MuxMode) bytes m a b where -> MuxPeer bytes m b -> RunMiniProtocol InitiatorResponderMode bytes m a b + data MuxPeer bytes m a where MuxPeer :: forall (pr :: PeerRole) ps (st :: ps) failure bytes m a. ( Typeable ps