Skip to content
Snippets Groups Projects
Commit 1749892e authored by Ashley Yakeley's avatar Ashley Yakeley
Browse files

Days: remove unused code

parent 0a8946c3
No related branches found
No related tags found
No related merge requests found
......@@ -52,26 +52,3 @@ addDays n (ModifiedJulianDay a) = ModifiedJulianDay (a + n)
diffDays :: Day -> Day -> Integer
diffDays (ModifiedJulianDay a) (ModifiedJulianDay b) = a - b
{-
instance Show Day where
show (ModifiedJulianDay d) = "MJD " ++ (show d)
-- necessary because H98 doesn't have "cunning newtype" derivation
instance Num Day where
(ModifiedJulianDay a) + (ModifiedJulianDay b) = ModifiedJulianDay (a + b)
(ModifiedJulianDay a) - (ModifiedJulianDay b) = ModifiedJulianDay (a - b)
(ModifiedJulianDay a) * (ModifiedJulianDay b) = ModifiedJulianDay (a * b)
negate (ModifiedJulianDay a) = ModifiedJulianDay (negate a)
abs (ModifiedJulianDay a) = ModifiedJulianDay (abs a)
signum (ModifiedJulianDay a) = ModifiedJulianDay (signum a)
fromInteger = ModifiedJulianDay
instance Real Day where
toRational (ModifiedJulianDay a) = toRational a
instance Integral Day where
toInteger (ModifiedJulianDay a) = toInteger a
quotRem (ModifiedJulianDay a) (ModifiedJulianDay b) = (ModifiedJulianDay c,ModifiedJulianDay d) where
(c,d) = quotRem a b
-}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment