more cost calculation and refactored Tunables

1 files changed, 0 insertions, 11 deletions

diff --git a/Types.hs b/Types.hs
index 2be82a8..3b5d39f 100644
--- a/Types.hs
+++ b/Types.hs
@@ -63,16 +63,5 @@ instance Encodable ObjectIdent where
 				n <- readMaybe (B8.unpack ns)
 				return $ ObjectIdent (ShardNum n) keyident
 
--- | An estimated cost to perform an operation.
-data Cost = CPUCost Seconds | GPUCost Seconds
-	deriving (Show)
-
-newtype Seconds = Seconds NominalDiffTime
-	deriving (Show)
-
 data Benchmark t = Benchmark { expectedBenchmark :: t, actualBenchmark :: t }
 	deriving (Show)
-
--- | In testing mode, the cryptographic difficulty is dialed back.
-data RunMode = SecureMode | TestingMode
-	deriving (Show)