Fix incorrect type annotation of interpreterVar

cardano-foundation · Jul 28, 2020 · c683960 · c683960
1 parent 351a1b1
commit c683960
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs
@@ -328,7 +328,7 @@ withNetworkLayer tr np addrInfo versionData action = do
         => RetryHandlers
         -> IO ( Chan (Tip (CardanoBlock TPraosStandardCrypto))
               , TVar IO W.ProtocolParameters
-              , TVar IO (Maybe (CardanoInterpreter TPraosStandardCrypto))
+              , TMVar IO (CardanoInterpreter TPraosStandardCrypto)
               , TQueue IO (LocalTxSubmissionCmd
                   (GenTx (CardanoBlock TPraosStandardCrypto))
                   (CardanoApplyTxErr TPraosStandardCrypto)