1 files changed, 2 insertions, 2 deletions
diff --git a/Types/Cost.hs b/Types/Cost.hs
index 290fa25..2f181a2 100644
--- a/Types/Cost.hs
+++ b/Types/Cost.hs
@@ -12,13 +12,13 @@ import Utility.HumanTime
 -- | An estimated cost to perform an operation.
 data Cost op 
 	= CPUCost Seconds -- ^ using 1 CPU core
-	deriving (Show)
+	deriving (Show, Eq, Ord)
 
 unknownCost :: Cost op
 unknownCost = CPUCost (Seconds 0)
 
 newtype Seconds = Seconds Integer
-	deriving (Num)
+	deriving (Num, Eq, Ord)
 
 instance Show Seconds where
 	show (Seconds n) = fromDuration (Duration n)