Remove some deadcode.

Author: Aleksandr Penskoi

src/BotPlutusInterface/Config.hs

@@ -16,7 +16,7 @@ import BotPlutusInterface.Effects (
  )
 import BotPlutusInterface.Types (CLILocation (..), LogLevel (..), PABConfig (..))
 
-import Cardano.Api (ExecutionUnits (..), NetworkId (Mainnet, Testnet), unNetworkMagic)
+import Cardano.Api (NetworkId (Mainnet, Testnet), unNetworkMagic)
 import Config (Section (Section), Value (Atom, Sections, Text))
 import Config.Schema (
   HasSpec (anySpec),
@@ -74,20 +74,6 @@ logLevelSpec =
     <!> Info <$ atomSpec "info"
     <!> Debug <$ atomSpec "debug"
 
-instance ToValue (Integer, Integer) where
-  toValue = toValue . forceBudgetToExecutionUnits
-
-instance HasSpec (Maybe (Integer, Integer)) where
-  anySpec = maybeSpec (executionUnitsToForceBudget <$> anySpec)
-
-forceBudgetToExecutionUnits :: (Integer, Integer) -> ExecutionUnits
-forceBudgetToExecutionUnits (steps, memory) =
-  ExecutionUnits (fromInteger steps) (fromInteger memory)
-
-executionUnitsToForceBudget :: ExecutionUnits -> (Integer, Integer)
-executionUnitsToForceBudget (ExecutionUnits steps memory) =
-  (toInteger steps, toInteger memory)
-
 {- ORMOLU_DISABLE -}
 instance ToValue PABConfig where
   toValue

src/PlutusConfig/Ledger.hs

@@ -5,19 +5,11 @@
 
 module PlutusConfig.Ledger () where
 
-import Config (Section (Section), Value (Sections, Text))
-import Config.Schema (
-  HasSpec (anySpec),
-  ValueSpec,
-  integerSpec,
-  reqSection',
-  sectionsSpec,
-  stringSpec,
- )
+import Config (Value (Text))
+import Config.Schema (HasSpec (anySpec), ValueSpec, stringSpec)
 import Data.String (fromString)
 import Data.Text (Text)
 import Ledger (POSIXTime (..), PubKeyHash, StakePubKeyHash (..))
-import Ledger.TimeSlot (SlotConfig (SlotConfig), scSlotLength, scSlotZeroTime)
 import PlutusConfig.Base ()
 import PlutusConfig.Types (ToValue (toValue), withNamePrefixSpec)
 import Prelude
@@ -39,28 +31,3 @@ instance HasSpec StakePubKeyHash where
 
 instance ToValue POSIXTime where
   toValue = toValue . getPOSIXTime
-
-instance ToValue SlotConfig where
-  toValue (SlotConfig scSlotLength scSlotZeroTime) =
-    Sections
-      ()
-      [ Section () "length" $ toValue scSlotLength
-      , Section () "zeroTime" $ toValue scSlotZeroTime
-      ]
-
-instance HasSpec SlotConfig where
-  anySpec = slotConfigSpec
-
-slotConfigSpec :: ValueSpec SlotConfig
-slotConfigSpec = sectionsSpec "SlotConfig configuration" $ do
-  scSlotLength <-
-    reqSection'
-      "length"
-      integerSpec
-      "Length (number of milliseconds) of one slot"
-  scSlotZeroTime <-
-    reqSection'
-      "zeroTime"
-      (POSIXTime <$> integerSpec)
-      "Beginning of slot 0 (in milliseconds)"
-  pure SlotConfig {..}

test/Spec/BotPlutusInterface/Config.hs

@@ -100,8 +100,7 @@ pabConfigExample =
           , protocolParamCollateralPercent = Just 1017
           , protocolParamMaxCollateralInputs = Just 1018
           }
-    , -- , pcSlotConfig = SlotConfig {scSlotLength = 1019, scSlotZeroTime = POSIXTime 1020}
-      pcTipPollingInterval = 1021
+    , pcTipPollingInterval = 1021
     , pcScriptFileDir = "./result-scripts2"
     , pcSigningKeyFileDir = "./signing-keys2"
     , pcTxFileDir = "./txs2"
@@ -111,8 +110,7 @@ pabConfigExample =
     , pcLogLevel = Debug
     , pcOwnPubKeyHash = "0f45aaf1b2959db6e5ff94dbb1f823bf257680c3c723ac2d49f97546"
     , pcOwnStakePubKeyHash = Just $ StakePubKeyHash "0f45aaf1b2959db6e5ff94dbb1f823bf257680c3c723ac2d49f97547"
-    , -- , pcForceBudget = Just (1000, 1000)
-      pcPort = 1021
+    , pcPort = 1021
     , pcEnableTxEndpoint = True
     , pcCollectStats = False
     }