From a92ba300b40a74318f2b9b8b9995e9df418cf222 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 18 Aug 2016 09:54:29 -0400
Subject: drop HumanTime

---
 Types/Cost.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'Types')

diff --git a/Types/Cost.hs b/Types/Cost.hs
index 2aa6ee7..b3aed71 100644
--- a/Types/Cost.hs
+++ b/Types/Cost.hs
@@ -7,8 +7,6 @@
 
 module Types.Cost where
 
-import Utility.HumanTime
-
 -- | An estimated cost to perform an operation.
 data Cost op 
 	= CPUCost Seconds -- ^ using 1 CPU core
@@ -18,10 +16,7 @@ unknownCost :: Cost op
 unknownCost = CPUCost (Seconds 0)
 
 newtype Seconds = Seconds Integer
-	deriving (Num, Eq, Ord)
-
-instance Show Seconds where
-	show (Seconds n) = fromDuration (Duration n)
+	deriving (Num, Eq, Ord, Show)
 
 data UsingHardware = UsingCPU | UsingGPU | UsingASIC
 	deriving (Show)
-- 
cgit v1.2.3