View on GitHub
File Changes
        nl' = toWLBlock <$> nl

                      
    stakePoolLayer
-
        :: Monad poolDBMonad
-
        => Trace IO Text
+
        :: Trace IO Text
        -> NetworkLayer IO t J.Block
-
        -> Pool.DBLayer poolDBMonad
+
        -> Pool.DBLayer IO
        -> IO (StakePoolLayer IO)
    stakePoolLayer trRoot nl db = do
        void $ forkFinally (monitorStakePools tr' nl' db) onExit