chain-sync: added mapChainSyncClientPipelinedSt
This captures a pattern used in `cardano-cli`.
This captures a pattern used in `cardano-cli`.
type MapSt :: ChainSync header point tip
-> ChainSync header' point' tip'
type family MapSt st = r where
MapSt StIdle = StIdle
MapSt (StNext (StCanAwait)) = StNext (StCanAwait)
MapSt (StNext (StMustReply)) = StNext (StMustReply)
MapSt StIntersect = StIntersect
MapSt StDone = StDone
MapSt StIdle = StIdle
MapSt (StNext StCanAwait) = StNext (StCanAwait)
MapSt (StNext StMustReply) = StNext (StMustReply)
MapSt StIntersect = StIntersect
MapSt StDone = StDone
type MapTr :: Trans (ChainSync header point tip)
-> Trans (ChainSync header' point' tip')
Co-authored-by: Ubuntu <[email protected]>
Adding Coin
XFAIL on node issue #3859
And, provide a useful / informative error message down to clients.