Merge pull request #1360 from input-output-hk/ffakenz/fix-explorer-co…

…ntestation-deadline Fix explorer contestation deadline
cardano-scaling · Mar 18, 2024 · b9f37e5 · b9f37e5
2 parents 7e56603 + fb69516
commit b9f37e5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/hydra-explorer/src/Hydra/Explorer/ExplorerState.hs b/hydra-explorer/src/Hydra/Explorer/ExplorerState.hs
@@ -229,7 +229,13 @@ aggregateCloseObservation :: HeadId -> ChainPoint -> BlockNo -> SnapshotNumber -
 aggregateCloseObservation headId point blockNo (UnsafeSnapshotNumber sn) contestationDeadline currentHeads =
   case findHeadState headId currentHeads of
     Just headState ->
-      let newHeadState = headState{status = Closed, contestations = Seen 0, snapshotNumber = Seen sn}
+      let newHeadState =
+            headState
+              { status = Closed
+              , contestations = Seen 0
+              , snapshotNumber = Seen sn
+              , contestationDeadline = Seen contestationDeadline
+              }
        in replaceHeadState newHeadState currentHeads
     Nothing -> currentHeads <> [newUnknownHeadState]
  where