@@ -68,8 +68,9 @@ data Transition =
68 Transition
68 Transition
69 {transTime :: Integer, -- ^ Unix timestamp indicating the time
69 {transTime :: Integer, -- ^ Unix timestamp indicating the time
70 -- when the clocks change
70 -- when the clocks change
71− transIndex :: Int} -- ^ 0-based index in the list of @TtInfo@
71+ transIndex :: Int -- ^ 0-based index in the list of @TtInfo@
72 -- that describes the new time
72 -- that describes the new time
73 deriving (Eq, Show)
74 deriving (Eq, Show)
75-- | A @TransitionType@ is historical information about whether the
76-- | A @TransitionType@ is historical information about whether the
@@ -94,7 +95,8 @@ data TtInfo abbr =
94 -- in seconds
95 -- in seconds
95 tt_isdst :: Bool, -- ^ True if local clocks are summer time
96 tt_isdst :: Bool, -- ^ True if local clocks are summer time
96 tt_ttype :: TransitionType,
97 tt_ttype :: TransitionType,
97− tt_abbr :: abbr} -- ^ The timezone abbreviation string.
98+ tt_abbr :: abbr -- ^ The timezone abbreviation string.
98 deriving (Eq, Show)
100 deriving (Eq, Show)
100-- | Olson timezone files can contain leap second specifications, though
102-- | Olson timezone files can contain leap second specifications, though
@@ -103,6 +105,7 @@ data LeapInfo =
104 {leapTime :: Integer, -- ^ A Unix timestamp indicating the time
106 {leapTime :: Integer, -- ^ A Unix timestamp indicating the time
105 -- that the leap second occurred
107 -- that the leap second occurred
106− leapOffset :: Int} -- ^ The new total offset of UTC from UT1
108+ leapOffset :: Int -- ^ The new total offset of UTC from UT1
107 -- after this leap second
109 -- after this leap second
108 deriving (Eq, Show)
111 deriving (Eq, Show)