From 94d351004688992f8aeac7d03da55d179ef50e8c Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 6 Aug 2016 21:39:38 -0400
Subject: more cost calculation and refactored Tunables

---
 Types.hs | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'Types.hs')

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)
-- 
cgit v1.2.3