CalendarDiffTime: derive Data and Typeable
authorThomas Tuegel <ttuegel@mailbox.org>
Sun, 27 May 2018 16:31:28 +0000 (11:31 -0500)
committerThomas Tuegel <ttuegel@mailbox.org>
Sun, 27 May 2018 16:31:28 +0000 (11:31 -0500)
lib/Data/Time/LocalTime/Internal/CalendarDiffTime.hs

index d6777ba..0629b7e 100644 (file)
@@ -11,13 +11,15 @@ import Data.Monoid
 import Data.Semigroup hiding (option)
 #endif
 import Data.Fixed
+import Data.Typeable
+import Data.Data
 import Data.Time.Calendar.CalendarDiffDays
 import Data.Time.Clock.Internal.NominalDiffTime
 
 data CalendarDiffTime = CalendarDiffTime
     { ctMonths :: Integer
     , ctTime :: NominalDiffTime
-    } deriving (Eq)
+    } deriving (Eq,Data,Typeable)
 #if MIN_VERSION_base(4,9,0)
 -- | Additive
 instance Semigroup CalendarDiffTime where