showConnectionEvents: removed unnecessary brackets

IntersectMBO · Jun 21, 2022 · c26c388 · c26c388
1 parent 640b07a
commit c26c388
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs b/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs
@@ -3089,15 +3089,15 @@ withTimeNameTraceEvents = fmap (\(WithTime t (WithName _ e)) -> WithTime t e)
               @(WithTime (WithName (Name SimAddr) b))
 
 showConnectionEvents :: ConnectionEvent req peerAddr -> String
-showConnectionEvents (StartClient{})             = "StartClient"
-showConnectionEvents (StartServer{})             = "StartServer"
-showConnectionEvents (InboundConnection{})       = "InboundConnection"
-showConnectionEvents (OutboundConnection{})      = "OutboundConnection"
-showConnectionEvents (InboundMiniprotocols{})    = "InboundMiniprotocols"
-showConnectionEvents (OutboundMiniprotocols{})   = "OutboundMiniprotocols"
-showConnectionEvents (CloseInboundConnection{})  = "CloseInboundConnection"
-showConnectionEvents (CloseOutboundConnection{}) = "CloseOutboundConnection"
-showConnectionEvents (ShutdownClientServer{})    = "ShutdownClientServer"
+showConnectionEvents StartClient{}             = "StartClient"
+showConnectionEvents StartServer{}             = "StartServer"
+showConnectionEvents InboundConnection{}       = "InboundConnection"
+showConnectionEvents OutboundConnection{}      = "OutboundConnection"
+showConnectionEvents InboundMiniprotocols{}    = "InboundMiniprotocols"
+showConnectionEvents OutboundMiniprotocols{}   = "OutboundMiniprotocols"
+showConnectionEvents CloseInboundConnection{}  = "CloseInboundConnection"
+showConnectionEvents CloseOutboundConnection{} = "CloseOutboundConnection"
+showConnectionEvents ShutdownClientServer{}    = "ShutdownClientServer"
 
 
 -- | Redefine this tracer to get valuable tracing information from various