[commit: packages/time] format-widths, ghc, improve-leapseconds, master, posix-perf, tasty, wip/travis: Days: remove unused code (1749892)

git at git.haskell.org git at git.haskell.org
Fri Apr 21 16:53:45 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,ghc,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/1749892e6ae6eaafaf709cad1bc8361f4ae4ac25

>---------------------------------------------------------------

commit 1749892e6ae6eaafaf709cad1bc8361f4ae4ac25
Author: Ashley Yakeley <ashley at yakeley.org>
Date:   Sat Feb 21 02:17:17 2015 -0800

    Days: remove unused code


>---------------------------------------------------------------

1749892e6ae6eaafaf709cad1bc8361f4ae4ac25
 lib/Data/Time/Calendar/Days.hs | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/lib/Data/Time/Calendar/Days.hs b/lib/Data/Time/Calendar/Days.hs
index c2ea920..b051288 100644
--- a/lib/Data/Time/Calendar/Days.hs
+++ b/lib/Data/Time/Calendar/Days.hs
@@ -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
--}



More information about the ghc-commits mailing list