Add missing seen contestationDeadline when aggregating a close head o…

…bservation
cardano-scaling · Mar 15, 2024 · fb69516 · fb69516
1 parent 7e56603
commit fb69516
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