Dirty fix in inbound/outbound agencies for ObjectDiffusion

Author: tbagrel1

ouroboros-network-protocols/src/Ouroboros/Network/Protocol/ObjectDiffusion/Type.hs

@@ -59,20 +59,20 @@ import Ouroboros.Network.Util.ShowProxy
 import Quiet (Quiet (..))
 
 pattern OutboundAgency :: Agency
-pattern OutboundAgency = ClientAgency
-type OutboundAgency = 'ClientAgency
+pattern OutboundAgency = ServerAgency
+type OutboundAgency = 'ServerAgency
 
 pattern InboundAgency :: Agency
-pattern InboundAgency = ServerAgency
-type InboundAgency = 'ServerAgency
+pattern InboundAgency = ClientAgency
+type InboundAgency = 'ClientAgency
 
 pattern AsOutbound :: PeerRole
-pattern AsOutbound = AsClient
-type AsOutbound = 'AsClient
+pattern AsOutbound = AsServer
+type AsOutbound = 'AsServer
 
 pattern AsInbound :: PeerRole
-pattern AsInbound = AsServer
-type AsInbound = 'AsServer
+pattern AsInbound = AsClient
+type AsInbound = 'AsClient
 
 pattern ReflOutboundAgency :: ReflRelativeAgency ClientAgency (r :: RelativeAgency) (r :: RelativeAgency)
 pattern ReflOutboundAgency = ReflClientAgency