Possible fix for NodeToClient DictVersion constructor

cardano-foundation · Oct 15, 2020 · b151a66 · b151a66
1 parent d6c25d4
commit b151a66
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
@@ -961,7 +961,7 @@ connectClient
     -> FilePath
     -> IO ()
 connectClient tr handlers client (vData, vCodec) addr = withIOManager $ \iocp -> do
-    let vDict = DictVersion vCodec
+    let vDict = DictVersion vCodec (\_ _ -> ())
     let versions = simpleSingletonVersions nodeToClientVersion vData vDict client
     let tracers = NetworkConnectTracers
             { nctMuxTracer = nullTracer