diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Cost.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Types/Cost.hs b/Types/Cost.hs index 08f98eb..521d6c1 100644 --- a/Types/Cost.hs +++ b/Types/Cost.hs @@ -14,7 +14,7 @@ data Cost op deriving (Show, Eq, Ord) newtype Seconds = Seconds Rational - deriving (Num, Fractional, Eq, Ord) + deriving (Num, Fractional, Real, RealFrac, Eq, Ord) instance Show Seconds where show (Seconds n) = show (fromRational n :: Double) ++ "s" |