TOSQUASH small mistake

IntersectMBO · Dec 2, 2023 · 085645b · 085645b
1 parent 5461c6c
commit 085645b
Showing 1 changed file with 13 additions and 15 deletions.
diff --git a/...s-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs b/...s-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs
@@ -307,21 +307,19 @@ initInternalState NodeKernelArgs { tracers, chainDB, registry, cfg
     varLedgerJudgement <- do
       wasCaughtUp  <- GSM.hasMarkerFile gsmMarkerFileView
       initJudgment <-
-        if not wasCaughtUp
-          then do
-            GSM.removeMarkerFile gsmMarkerFileView
-            return GSM.TooOld
-          else do
-            extLedgerState <- atomically $ ChainDB.getCurrentLedger chainDB
-            dur            <-
-              computeDurationuntilTooOld
-                cfg
-                durationUntilTooOld
-                (ledgerState extLedgerState)
-            return $ case dur of
-              GSM.After{}     -> GSM.YoungEnough
-              GSM.Already     -> GSM.TooOld
-              GSM.UnsafeNever -> GSM.YoungEnough
+        if not wasCaughtUp then pure GSM.TooOld else do
+          extLedgerState <- atomically $ ChainDB.getCurrentLedger chainDB
+          dur            <-
+            computeDurationuntilTooOld
+              cfg
+              durationUntilTooOld
+              (ledgerState extLedgerState)
+          case dur of
+            GSM.After{}     -> return GSM.YoungEnough
+            GSM.UnsafeNever -> return GSM.YoungEnough
+            GSM.Already     -> do
+              GSM.removeMarkerFile gsmMarkerFileView
+              return GSM.TooOld
       LazySTM.newTVarIO initJudgment
 
     varCandidates      <- newTVarIO mempty