Switch use of <$!!> to force

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
 

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:         [email protected]
 author:             IOHK
@@ -243,7 +243,6 @@ library
         contra-tracer,
         cryptonite,
         Cabal-syntax,
-        deepseq,
         digest,
         directory,
         filepath,

eras/byron/ledger/impl/src/Cardano/Chain/Genesis/Data.hs

@@ -29,7 +29,6 @@ import Cardano.Crypto (
  )
 import Cardano.Ledger.Binary
 import Cardano.Prelude
-import Control.DeepSeq ((<$!!>))
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as BSL
 import Data.List (lookup)
@@ -49,7 +48,6 @@ import Text.JSON.Canonical (
   parseCanonicalJSON,
   renderCanonicalJSON,
  )
-import Prelude (id)
 
 -- | Genesis data contains all data which determines consensus rules. It must be
 --   same for all nodes. It's used to initialize global state, slotting, etc.
@@ -95,7 +93,7 @@ instance MonadError SchemaError m => FromJSON m GenesisData where
     GenesisData
       <$> fromJSField obj "bootStakeholders"
       <*> fromJSField obj "heavyDelegation"
-      <*> (id <$!!> fromJSField obj "startTime")
+      <*> (force <$> fromJSField obj "startTime")
       <*> fromJSField obj "nonAvvmBalances"
       <*> fromJSField obj "blockVersionData"
       -- The above is called blockVersionData for backwards compatibility with