StateQuery: Add the absolute slot number to SlotDetails

IntersectMBO · Oct 19, 2021 · 531738a · 531738a
1 parent e4e799f
commit 531738a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/cardano-sync/src/Cardano/Sync/StateQuery.hs b/cardano-sync/src/Cardano/Sync/StateQuery.hs
@@ -155,8 +155,14 @@ querySlotDetails start absSlot = do
   (absEpoch, slotInEpoch) <- slotToEpoch' absSlot
   epochSize <- qryFromExpr $ EEpochSize (ELit absEpoch)
   let time = relToUTCTime start absTime
-  -- Set sdCurrentTime below and over write that above.
-  pure $ SlotDetails time time absEpoch (EpochSlot slotInEpoch) epochSize
+  pure $ SlotDetails
+            { sdSlotTime  = time
+            , sdCurrentTime = time -- Corrected above in insertCurrentTime
+            , sdEpochNo = absEpoch
+            , sdSlotNo = absSlot
+            , sdEpochSlot = EpochSlot slotInEpoch
+            , sdEpochSize = epochSize
+            }
 
 relToUTCTime :: SystemStart -> RelativeTime -> UTCTime
 relToUTCTime (SystemStart start) (RelativeTime rel) = addUTCTime rel start
diff --git a/cardano-sync/src/Cardano/Sync/Types.hs b/cardano-sync/src/Cardano/Sync/Types.hs
@@ -59,6 +59,7 @@ data SlotDetails = SlotDetails
   { sdSlotTime :: !UTCTime
   , sdCurrentTime :: !UTCTime
   , sdEpochNo :: !EpochNo
+  , sdSlotNo :: !SlotNo
   , sdEpochSlot :: !EpochSlot
   , sdEpochSize :: !EpochSize
   } deriving (Eq, Show)