beauty salon

cardano-foundation · Oct 26, 2021 · 4fa7b2a · 4fa7b2a
1 parent e0d8dc9
commit 4fa7b2a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/core/src/Ouroboros/Network/Client/Wallet.hs b/lib/core/src/Ouroboros/Network/Client/Wallet.hs
@@ -317,7 +317,7 @@ chainSyncWithBlocks tr chainFollower =
             --
             -- See also
             -- https://input-output-rnd.slack.com/archives/CDA6LUXAQ/p1634644689103100
-            pure $ clientStNegotiateGenesis
+            pure clientStNegotiateGenesis
             }
 
     -- Explictly negotiate the genesis point

diff --git a/lib/core/test/unit/Cardano/Wallet/DB/StateMachine.hs b/lib/core/test/unit/Cardano/Wallet/DB/StateMachine.hs
@@ -535,7 +535,7 @@ runIO db@DBLayer{..} = fmap Resp . go
         ReadDelegationRewardBalance wid -> Right . DelegationRewardBalance <$>
             atomically (readDelegationRewardBalance wid)
         RollbackTo wid sl -> catchNoSuchWallet Point $
-            mapExceptT atomically $ fmap slotNo $ rollbackTo wid sl
+            mapExceptT atomically (slotNo <$> rollbackTo wid sl)
 
     catchWalletAlreadyExists f =
         fmap (bimap errWalletAlreadyExists f) . runExceptT