ensure read instances for additional types -- TimeZone, Day, LocalTime, ZonedTime...
authorGershom <gershom@rgntgw1-3-72-dhcp.int.colorado.edu>
Fri, 22 May 2015 23:32:51 +0000 (17:32 -0600)
committerGershom <gershom@rgntgw1-3-72-dhcp.int.colorado.edu>
Fri, 22 May 2015 23:32:51 +0000 (17:32 -0600)
lib/Data/Time/Calendar.hs
lib/Data/Time/Calendar/Days.hs
lib/Data/Time/Format.hs
lib/Data/Time/Format/Locale.hs
lib/Data/Time/Format/Parse.hs
lib/Data/Time/LocalTime.hs
lib/Data/Time/LocalTime/LocalTime.hs
lib/Data/Time/LocalTime/TimeOfDay.hs
lib/Data/Time/LocalTime/TimeZone.hs

index cf2279c..2abe1a0 100644 (file)
@@ -6,3 +6,4 @@ module Data.Time.Calendar
 
 import Data.Time.Calendar.Days
 import Data.Time.Calendar.Gregorian
+import Data.Time.Format()
\ No newline at end of file
index b051288..6b472b5 100644 (file)
@@ -15,9 +15,6 @@ import Data.Data
 #endif
 
 -- | The Modified Julian Day is a standard count of days, with zero being the day 1858-11-17.
---
--- For the 'Read' instance of 'Day',
--- import "Data.Time" or "Data.Time.Format".
 newtype Day = ModifiedJulianDay {toModifiedJulianDay :: Integer} deriving (Eq,Ord
 #if LANGUAGE_DeriveDataTypeable
 #if LANGUAGE_Rank2Types
index e3fe96b..5ddd341 100644 (file)
@@ -6,12 +6,17 @@ module Data.Time.Format
     ) where
 
 import Data.Time.Format.Parse
-import Data.Time.LocalTime
+
+import Data.Time.LocalTime.TimeZone
+import Data.Time.LocalTime.TimeOfDay
+import Data.Time.LocalTime.LocalTime
+import Data.Time.Calendar.Days
+import Data.Time.Calendar.Gregorian
 import Data.Time.Calendar.WeekDate
 import Data.Time.Calendar.OrdinalDate
-import Data.Time.Calendar
 import Data.Time.Calendar.Private
-import Data.Time.Clock
+import Data.Time.Clock.Scale
+import Data.Time.Clock.UTC
 import Data.Time.Clock.POSIX
 
 import Data.Maybe
index 80ead81..e0e57c9 100644 (file)
@@ -11,7 +11,8 @@ module Data.Time.Format.Locale (
     )
 where
 
-import Data.Time.LocalTime
+import Data.Time.LocalTime.TimeZone
+
 
 data TimeLocale = TimeLocale {
         -- |full and abbreviated week days, starting with Sunday
index dda7e8f..20dad98 100644 (file)
@@ -17,10 +17,13 @@ module Data.Time.Format.Parse
 import Data.Time.Clock.POSIX
 import Data.Time.Clock.Scale
 import Data.Time.Clock.UTC
-import Data.Time.Calendar
+import Data.Time.Calendar.Days
+import Data.Time.Calendar.Gregorian
 import Data.Time.Calendar.OrdinalDate
 import Data.Time.Calendar.WeekDate
-import Data.Time.LocalTime
+import Data.Time.LocalTime.TimeZone
+import Data.Time.LocalTime.TimeOfDay
+import Data.Time.LocalTime.LocalTime
 
 #if LANGUAGE_Rank2Types
 import Control.Monad
@@ -493,4 +496,3 @@ instance Read UTCTime where
 instance Read UniversalTime where
     readsPrec n s = [ (localTimeToUT1 0 t, r) | (t,r) <- readsPrec n s ]
 #endif
-
index 046da36..735d826 100644 (file)
@@ -5,6 +5,7 @@ module Data.Time.LocalTime
     module Data.Time.LocalTime.LocalTime
 ) where
 
+import Data.Time.Format()
 import Data.Time.LocalTime.TimeZone
 import Data.Time.LocalTime.TimeOfDay
 import Data.Time.LocalTime.LocalTime
index 1c47f53..77ab2cc 100644 (file)
@@ -15,7 +15,8 @@ module Data.Time.LocalTime.LocalTime
 
 import Data.Time.LocalTime.TimeOfDay
 import Data.Time.LocalTime.TimeZone
-import Data.Time.Calendar
+import Data.Time.Calendar.Days
+import Data.Time.Calendar.Gregorian
 
 import Data.Time.Clock.Scale
 import Data.Time.Clock.UTCDiff
@@ -32,9 +33,6 @@ import Data.Data
 -- and the time is a TimeOfDay.
 -- Conversion of this (as local civil time) to UTC depends on the time zone.
 -- Conversion of this (as local mean time) to UT1 depends on the longitude.
---
--- For the 'Read' instance of 'LocalTime',
--- import "Data.Time" or "Data.Time.Format".
 data LocalTime = LocalTime {
     localDay    :: Day,
     localTimeOfDay   :: TimeOfDay
@@ -80,9 +78,6 @@ instance Show UniversalTime where
     show t = show (ut1ToLocalTime 0 t)
 
 -- | A local time together with a TimeZone.
---
--- For the 'Read' instance of 'ZonedTime',
--- import "Data.Time" or "Data.Time.Format".
 data ZonedTime = ZonedTime {
     zonedTimeToLocalTime :: LocalTime,
     zonedTimeZone :: TimeZone
index 30e03c9..4645857 100644 (file)
@@ -21,9 +21,6 @@ import Data.Data
 #endif
 
 -- | Time of day as represented in hour, minute and second (with picoseconds), typically used to express local time of day.
---
--- For the 'Read' instance of 'TimeOfDay',
--- import "Data.Time" or "Data.Time.Format".
 data TimeOfDay = TimeOfDay {
     -- | range 0 - 23
     todHour    :: Int,
index 177d115..90846f2 100644 (file)
@@ -30,9 +30,6 @@ import Data.Data
 #endif
 
 -- | A TimeZone is a whole number of minutes offset from UTC, together with a name and a \"just for summer\" flag.
---
--- For the 'Read' instance of 'TimeZone',
--- import "Data.Time" or "Data.Time.Format".
 data TimeZone = TimeZone {
     -- | The number of minutes offset from UTC. Positive means local time will be later in the day than UTC.
     timeZoneMinutes :: Int,