cardano-testnet: remove unused ForkPoint datatype

IntersectMBO · Oct 9, 2024 · d518946 · d518946
1 parent 371a142
commit d518946
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/cardano-testnet/src/Testnet/Start/Cardano.hs b/cardano-testnet/src/Testnet/Start/Cardano.hs
@@ -7,8 +7,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module Testnet.Start.Cardano
-  ( ForkPoint(..)
-  , CardanoTestnetCliOptions(..)
+  ( CardanoTestnetCliOptions(..)
   , CardanoTestnetOptions(..)
   , extraSpoNodeCliArgs
   , TestnetNodeOptions(..)
@@ -77,12 +76,6 @@ testnetMinimumConfigurationRequirements (NumPools n) = withFrozenCallStack $
      H.noteShow_ ("Need at least two nodes to run a cluster, but got: " <> show n)
      H.failure
 
-data ForkPoint
-  = AtVersion Int
-  | AtEpoch Int
-  deriving (Show, Eq, Read)
-
-
 -- | For an unknown reason, CLI commands are a lot slower on Windows than on Linux and
 -- MacOS.  We need to allow a lot more time to set up a testnet.
 startTimeOffsetSeconds :: DTC.NominalDiffTime