From 19b972023634154e8430acc3506de9195ae0e159 Mon Sep 17 00:00:00 2001 From: Nicolas Frisby Date: Wed, 29 Nov 2023 11:20:12 -0800 Subject: [PATCH] TOSQUASH 9.6 needs join import in ChainSync.Client --- .../Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs index d9937aad26..0c0cdc8293 100644 --- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs +++ b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs @@ -36,6 +36,7 @@ module Ouroboros.Consensus.MiniProtocol.ChainSync.Client ( , TraceChainSyncClientEvent (..) ) where +import Control.Monad (join) import Control.Monad.Except import Control.Tracer import Data.Kind (Type)