leave a thunk in the Mark snapshot

IntersectMBO · Apr 17, 2021 · a4b0109 · a4b0109
1 parent 8d6f9d8
commit a4b0109
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/EpochBoundary.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/EpochBoundary.hs
@@ -215,7 +215,7 @@ instance
 
 -- | Snapshots of the stake distribution.
 data SnapShots crypto = SnapShots
-  { _pstakeMark :: !(SnapShot crypto),
+  { _pstakeMark :: SnapShot crypto,
     _pstakeSet :: !(SnapShot crypto),
     _pstakeGo :: !(SnapShot crypto),
     _feeSS :: !Coin