WIP: simpleSingletonVersion

Author: coot

cardano-chain-gen/src/Cardano/Mock/ChainSync/Server.hs

@@ -226,7 +226,7 @@ runLocalServer iom codecConfig netMagic localDomainSock chainProdState =
        in simpleSingletonVersions
             version
             (NodeToClientVersionData netMagic False)
-            (NTC.responder version $ mkApps state version blockVersion (NTC.defaultCodecs codecConfig blockVersion version))
+            (\_ -> NTC.responder version $ mkApps state version blockVersion (NTC.defaultCodecs codecConfig blockVersion version))
 
     mkApps ::
       StrictTVar IO (ChainProducerState blk) ->