Fixup: use uncurry

Co-authored-by: Rodney Lorrimar <rodney.lorrimar@iohk.io>
cardano-foundation · Apr 15, 2021 · c3b42ed · c3b42ed
1 parent 3ba655d
commit c3b42ed
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -879,8 +879,7 @@ restoreBlocks ctx tr wid blocks nodeTip = db & \DBLayer{..} -> mapExceptT atomic
     logCheckpoint cp = traceWith tr $ MsgCheckpoint (currentTip cp)
 
     logDelegation :: (SlotNo, DelegationCertificate) -> IO ()
-    logDelegation (slotNo, cert) = traceWith tr
-        $ MsgDiscoveredDelegationCert slotNo cert
+    logDelegation = traceWith tr . uncurry MsgDiscoveredDelegationCert
 
     isParentOf :: Wallet s -> Block -> Bool
     isParentOf cp = (== parent) . parentHeaderHash . header