diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-18 09:54:29 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-18 09:54:29 -0400 |
| commit | a92ba300b40a74318f2b9b8b9995e9df418cf222 (patch) | |
| tree | acb84510ca72d39bbc99c2162fbbf71ec1a6da10 /Types | |
| parent | b42cc27b3cb18119f5038daee4dc783cb6824f00 (diff) | |
| download | keysafe-a92ba300b40a74318f2b9b8b9995e9df418cf222.tar.gz | |
drop HumanTime
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Cost.hs | 7 |
1 files changed, 1 insertions, 6 deletions
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) |