[466] Remove unused imports / defs

IntersectMBO · May 31, 2019 · 9315a40 · 9315a40
1 parent 7df3607
commit 9315a40
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/byron/chain/executable-spec/src/Cardano/Spec/Chain/STS/Rule/BHead.hs b/byron/chain/executable-spec/src/Cardano/Spec/Chain/STS/Rule/BHead.hs
@@ -40,7 +40,7 @@ instance STS BHEAD where
 
   transitionRules =
     [ do
-        TRC ((epochEnv, sLast), us, bh) <- judgmentContext
+        TRC ((_, sLast), us, bh) <- judgmentContext
         us' <- trans @EPOCH $ TRC (sEpoch sLast, us, bh ^. bhSlot)
         let sMax = snd (us' ^. _1) ^. maxHdrSz
         bHeaderSize bh <= sMax ?! HeaderSizeTooBig

diff --git a/byron/chain/executable-spec/src/Cardano/Spec/Chain/STS/Rule/Epoch.hs b/byron/chain/executable-spec/src/Cardano/Spec/Chain/STS/Rule/Epoch.hs
@@ -6,7 +6,6 @@ module Cardano.Spec.Chain.STS.Rule.Epoch where
 
 -- import Control.Lens ((^.), _2)
 import Control.State.Transition
-import Data.Bimap (Bimap)
 import Ledger.Core
 import Ledger.Update