{-# OPTIONS_GHC -Wno-orphans #-} module Ouroboros.Network.Test.Orphans () where import Network.TypedProtocol.PingPong.Type (PingPong) import Network.TypedProtocol.ReqResp.Type (ReqResp) import Ouroboros.Network.Util.ShowProxy (ShowProxy (..)) instance ShowProxy PingPong where showProxy :: Proxy PingPong -> String showProxy Proxy PingPong _ = String "PingPong" instance ShowProxy (ReqResp req resp) where showProxy :: Proxy (ReqResp req resp) -> String showProxy Proxy (ReqResp req resp) _ = String "ReqResp"