From b02bfe47d0a07b813dfd5bc3a78ad02c3673b493 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Aug 2016 13:12:32 -0400 Subject: refactor --- Types/Cost.hs | 8 -------- 1 file changed, 8 deletions(-) (limited to 'Types') diff --git a/Types/Cost.hs b/Types/Cost.hs index b3aed71..e2a037d 100644 --- a/Types/Cost.hs +++ b/Types/Cost.hs @@ -26,14 +26,6 @@ instance Monoid (Cost t) where CPUCost (Seconds a) `mappend` CPUCost (Seconds b) = CPUCost (Seconds (a+b)) -mapCost :: (Integer -> Integer) -> Cost op -> Cost op -mapCost f (CPUCost (Seconds n)) = CPUCost (Seconds (f n)) - -showCostMinutes :: Cost op -> String -showCostMinutes (CPUCost (Seconds n)) - | n < 61 = "1 minute" - | otherwise = show (n `div` 60) ++ " minutes" - -- | Operations whose cost can be measured. data DecryptionOp data CreationOp -- cgit v1.2.3