{-# 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"