diff --git a/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Types.hs b/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Types.hs index f9517a42914..36430050d04 100644 --- a/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Types.hs +++ b/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Types.hs @@ -874,7 +874,7 @@ instance Show state => Show (Transition' state) where show Transition { fromState, toState } = concat [ show fromState - , " → " + , " -> " , show toState ] diff --git a/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs b/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs index e07699da519..d8fb3fb478a 100644 --- a/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs +++ b/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs @@ -3695,7 +3695,7 @@ splitRemoteConns = ppTransition :: AbstractTransition -> String ppTransition Transition {fromState, toState} = - printf "%-30s → %s" (show fromState) (show toState) + printf "%-30s -> %s" (show fromState) (show toState) ppScript :: (Show peerAddr, Show req) => MultiNodeScript peerAddr req -> String ppScript (MultiNodeScript script _) = intercalate "\n" $ go 0 script