[input-output-hk/cardano-sl] Feature/csl 2388 test passive wallet (#2859)

parsonsmatt commented on this pull request.

> +data WalletWorkerState b = WalletWorkerState
+ { _pendingRollbacks :: !Int
+ , _pendingBlocks :: !(NewestFirst [] b)
+ , _lengthPendingBlocks :: !Int
+ }
+ deriving Eq
+
+makeLenses ”WalletWorkerState
+
+– A helper function for lifting a `WalletActionInterp` through a monad transformer.
+lifted :: (Monad m, MonadTrans t) => WalletActionInterp m b -> WalletActionInterp (t m) b
+lifted i = WalletActionInterp
+ { applyBlocks = lift . applyBlocks i
+ , switchToFork = n bs -> lift (switchToFork i n bs)
+ , emit = lift . emit i
+ }

Right. I mean something [like this](https://github.com/input-output-hk/cardano-sl/blob/develop/wallet-new/src/Cardano/Wallet/Client.hs#L181-L223). `hoist` is probably not the right word for it

This post was last modified on May 7, 2018, 8:09 pm