Skip to content
Permalink
Browse files

Fixups in jörm

  • Loading branch information...
Anviking committed Nov 8, 2019
1 parent b3ec940 commit 1960816f14ba8523ba38ec92c2245a6cfe3b04c8
Showing with 2 additions and 3 deletions.
  1. +2 −3 lib/jormungandr/src/Cardano/Wallet/Jormungandr.hs
@@ -211,10 +211,9 @@ serveWallet (cfg, tr) databaseDir hostPref listen lj beforeMainLoop = do
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

0 comments on commit 1960816

Please sign in to comment.
You can’t perform that action at this time.