Byron: Force startTime in genesis data to be strict (#4574)

* Byron: Force startTime in genesis data to be strict
IntersectMBO · Aug 31, 2024 · ae9a885 · ae9a885
1 parent 3f00082
commit ae9a885
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/eras/byron/ledger/impl/CHANGELOG.md b/eras/byron/ledger/impl/CHANGELOG.md
@@ -1,8 +1,8 @@
 # Revision history for `cardano-ledger-byron`
 
-## 1.0.1.1
+## 1.0.2.0
 
-*
+* `force` `startTime` in the evaluation of genesis-data. #4574
 
 ## 1.0.1.0
 

diff --git a/eras/byron/ledger/impl/cardano-ledger-byron.cabal b/eras/byron/ledger/impl/cardano-ledger-byron.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               cardano-ledger-byron
-version:            1.0.1.0
+version:            1.0.2.0
 license:            Apache-2.0
 maintainer:         operations@iohk.io
 author:             IOHK

diff --git a/eras/byron/ledger/impl/src/Cardano/Chain/Genesis/Data.hs b/eras/byron/ledger/impl/src/Cardano/Chain/Genesis/Data.hs
@@ -93,7 +93,7 @@ instance MonadError SchemaError m => FromJSON m GenesisData where
     GenesisData
       <$> fromJSField obj "bootStakeholders"
       <*> fromJSField obj "heavyDelegation"
-      <*> fromJSField obj "startTime"
+      <*> (force <$> fromJSField obj "startTime")
       <*> fromJSField obj "nonAvvmBalances"
       <*> fromJSField obj "blockVersionData"
       -- The above is called blockVersionData for backwards compatibility with