DO NOT MERGE - blow up at epoch 213

IntersectMBO · Sep 23, 2020 · 60cb5fa · 60cb5fa
1 parent 460ee17
commit 60cb5fa
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/STS/NewEpoch.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/STS/NewEpoch.hs
@@ -79,6 +79,8 @@ newEpochTransition = do
       e@(EpochNo e_)
       ) <-
     judgmentContext
+
+  e_ < 213 ?! (CorruptRewardUpdate $ emptyRewardUpdate {rs = _rewards . _dstate . _delegationState . esLState $ es, deltaF = Coin 7})
   if e_ /= eL + 1
     then pure src
     else do