Remove UPIState from executable specification

IntersectMBO · Jun 24, 2019 · 08156c1 · 08156c1
1 parent 08153e1
commit 08156c1
Showing 1 changed file with 0 additions and 11 deletions.
diff --git a/shelley/chain-and-ledger/executable-spec/src/LedgerState.hs b/shelley/chain-and-ledger/executable-spec/src/LedgerState.hs
@@ -40,7 +40,6 @@ module LedgerState
   , emptyAccount
   , emptyPState
   , emptyDState
-  , emptyUPIState
   , poolRAcnt
   , treasury
   , reserves
@@ -140,8 +139,6 @@ import           Delegation.PoolParams   (Delegation (..), PoolParams (..),
 
 import           BaseTypes
 
-import qualified Ledger.Update as Byron.Update (UPIState, emptyUPIState)
-
 -- | Representation of a list of pairs of key pairs, e.g., pay and stake keys
 type KeyPairs = [(KeyPair, KeyPair)]
 
@@ -295,14 +292,6 @@ data UTxOState =
                     , Updates.Applications)
     } deriving (Show, Eq)
 
--- | For now this contains the Byron `UPIState` and the Shelley PParams
--- separately.
-data UPIState = UPIState Byron.Update.UPIState PParams
-  deriving (Show, Eq)
-
-emptyUPIState :: UPIState
-emptyUPIState = UPIState Byron.Update.emptyUPIState emptyPParams
-
 -- | New Epoch state and environment
 data NewEpochState =
   NewEpochState {