Better types for NodeToClientProtocols

[erikd]

The code in cardano-node was incorrectly updated to:

      nodeToClientProtocols $ NodeToClientProtocols
      { localChainSyncProtocol = InitiatorProtocolOnly $
                                   MuxPeer
                                     nullTracer
                                     localTxSubmissionCodec
                                     (localTxSubmissionClientPeer localTxSubmissionClientNull)
      , localTxSubmissionProtocol = InitiatorProtocolOnly $
                                      MuxPeer
                                        nullTracer
                                        localChainSyncCodec
                                        (chainSyncClientPeer chainSyncClient)
      }

where the chain sync codec and peer was switched with the tx submission codec and peer. This code compiles without errors, in spite of being obviously incorrect.

Can this not be made type safe (preferably with Haskell98 types) so that something like this results in a compile error?