remove comments

pact-core/Pact/Core/Environment.hs

@@ -60,75 +60,6 @@ import Pact.Core.Names
 import Pact.Core.Pacts.Types
 import Pact.Core.ChainData
 
--- -- | Wrapper for 'PublicMeta' ttl field in seconds since offset
--- --
--- newtype TTLSeconds
---   = TTLSeconds Integer
---   deriving (Eq, Show)
-
--- -- | Wrapper for 'PublicMeta' creation time field in seconds since POSIX epoch
--- --
--- newtype TxCreationTime
---   = TxCreationTime Integer
---   deriving (Eq, Show)
-
--- newtype ChainId
---   = ChainId { _chainId :: Text }
---   deriving (Eq, Show)
-
--- -- | Allows user to specify execution parameters specific to public-chain
--- -- execution, namely gas parameters, TTL, creation time, chain identifier.
--- data PublicMeta
---   = PublicMeta
---   { _pmChainId :: !ChainId
---     -- ^ platform-specific chain identifier, e.g. "0"
---   , _pmSender :: !Text
---     -- ^ sender gas account key
---   , _pmGasLimit :: !GasLimit
---     -- ^ gas limit (maximum acceptable gas units for tx)
---   , _pmGasPrice :: !GasPrice
---     -- ^ per-unit gas price
---   , _pmTTL :: !TTLSeconds
---     -- ^ TTL in seconds
---   , _pmCreationTime :: !TxCreationTime
---     -- ^ Creation time in seconds since UNIX epoch
---   } deriving (Eq, Show)
--- makeLenses ''PublicMeta
-
--- instance Default PublicMeta where
---   def =
---     PublicMeta
---     { _pmChainId = ChainId ""
---     , _pmSender = ""
---     , _pmGasLimit = Gas 0
---     , _pmGasPrice = 0
---     , _pmTTL = TTLSeconds 0
---     , _pmCreationTime = TxCreationTime 0
---     }
-
--- -- | "Public chain" data with immutable block data
--- -- height, hash, creation time
--- data PublicData = PublicData
---   { _pdPublicMeta :: !PublicMeta
---     -- ^ 'PublicMeta' data from request
---   , _pdBlockHeight :: !Word64
---     -- ^ block height as specified by platform.
---   , _pdBlockTime :: !Int64
---     -- ^ block creation time, micros since UNIX epoch
---   , _pdPrevBlockHash :: !Text
---     -- ^ block hash of preceding block
---   }
---   deriving (Show)
--- makeLenses ''PublicData
-
--- instance Default PublicData where
---   def =
---     PublicData
---     { _pdPublicMeta = def
---     , _pdBlockHeight = 0
---     , _pdBlockTime = 0
---     , _pdPrevBlockHash = ""}
-
 -- | Execution flags specify behavior of the runtime environment,
 -- with an orientation towards some alteration of a default behavior.
 -- Thus, a flag should _not_ describe "normal behavior" (the default),
@@ -208,18 +139,3 @@ makeClassy ''EvalState
 
 instance HasLoaded (EvalState b i) b i where
   loaded = esLoaded
-
--- cdChainId :: Field
--- cdChainId = Field "chain-id"
--- cdBlockHeight :: Field
--- cdBlockHeight = Field "block-height"
--- cdBlockTime :: Field
--- cdBlockTime = Field "block-time"
--- cdPrevBlockHash :: Field
--- cdPrevBlockHash = Field "prev-block-hash"
--- cdSender :: Field
--- cdSender = Field "sender"
--- cdGasLimit :: Field
--- cdGasLimit = Field "gas-limit"
--- cdGasPrice :: Field
--- cdGasPrice = Field "gas-price"