Replace explicit if with a when function

ouroboros-consensus-cardano/tools/db-analyser/Analysis.hs

@@ -205,15 +205,14 @@ storeLedgerStateAt slotNo (AnalysisEnv { db, registry, initLedger, cfg, hasFS })
       let ledgerCfg     = ExtLedgerCfg cfg
           appliedResult = tickThenApplyLedgerResult ledgerCfg blk oldLedger
           newLedger     = either (error . show) lrResult $ runExcept $ appliedResult
-      if slotNo == blockSlot blk then
-        storeAndReturnNewLedger blk newLedger
-      else return newLedger
+      when (slotNo == blockSlot blk) $ storeLedgerState blk newLedger
+      return newLedger
 
-    storeAndReturnNewLedger ::
+    storeLedgerState ::
          blk
       -> ExtLedgerState blk
-      -> IO (ExtLedgerState blk)
-    storeAndReturnNewLedger blk ledgerState = do
+      -> IO ()
+    storeLedgerState blk ledgerState = do
       let snapshot = DiskSnapshot
                       (unSlotNo $ blockSlot blk)
                       (Just $ "db-analyser")
@@ -223,7 +222,6 @@ storeLedgerStateAt slotNo (AnalysisEnv { db, registry, initLedger, cfg, hasFS })
         , show (blockSlot blk)
         , show (blockHash blk)
         ]
-      pure ledgerState
 
     encLedger :: ExtLedgerState blk -> Encoding
     encLedger =