fixup: cleaning up $ / eta reducing

Author: fraser-iohk

ouroboros-consensus-protocol/src/ouroboros-consensus-protocol/Ouroboros/Consensus/Protocol/Ledger/HotKey.hs

@@ -318,7 +318,7 @@ mkHotKeyWith initialStateMay maxKESEvolutions keyThreadMay finalizer = do
           _ <- poisonState oldState
           return $ mkKESState maxKESEvolutions newOCert newKey evolution startPeriod
       unset =
-        modifyMVar_ varKESState $ poisonState
+        modifyMVar_ varKESState poisonState
 
   forM_ initialStateMay $ \(newOCert, newKey, evolution, startPeriod) ->
     set newOCert newKey evolution startPeriod

ouroboros-consensus-protocol/src/ouroboros-consensus-protocol/Ouroboros/Consensus/Protocol/Praos/Common.hs

@@ -311,9 +311,7 @@ instantiatePraosCredentials maxKESEvolutions _ (PraosCredentialsUnsound ocert sk
 instantiatePraosCredentials maxKESEvolutions tr (PraosCredentialsAgent _ path) = do
   HotKey.mkDynamicHotKey
     maxKESEvolutions
-    ( Just $ \handleKey handleDrop -> do
-        runKESAgentClient tr path handleKey handleDrop
-    )
+    (Just $ runKESAgentClient tr path)
     (pure ())
 
 -- | See 'PraosProtocolSupportsNode'