diff --git a/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs b/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs index c4325239e98..9174d01127c 100644 --- a/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs +++ b/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs @@ -235,6 +235,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. ( Show failure