From 08156c1b3bb15964eef76a31254cb88947756be1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20G=C3=BCdemann?= <matthias.gudemann@iohk.io>
Date: Mon, 24 Jun 2019 11:03:27 +0200
Subject: [PATCH] Remove `UPIState` from executable specification

---
 .../executable-spec/src/LedgerState.hs                | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/shelley/chain-and-ledger/executable-spec/src/LedgerState.hs b/shelley/chain-and-ledger/executable-spec/src/LedgerState.hs
index 348e4a7f158..3c38ba99c75 100644
--- 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 {