rename internal LocalTime modules
authorAshley Yakeley <ashley@yakeley.org>
Sat, 24 Dec 2016 21:54:55 +0000 (13:54 -0800)
committerAshley Yakeley <ashley@yakeley.org>
Sat, 24 Dec 2016 21:54:55 +0000 (13:54 -0800)
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/Internal/LocalTime.hs [moved from lib/Data/Time/LocalTime/LocalTime.hs with 63% similarity]
lib/Data/Time/LocalTime/Internal/TimeOfDay.hs [moved from lib/Data/Time/LocalTime/TimeOfDay.hs with 97% similarity]
lib/Data/Time/LocalTime/Internal/TimeZone.hs [moved from lib/Data/Time/LocalTime/TimeZone.hs with 98% similarity]
lib/Data/Time/LocalTime/Internal/ZonedTime.hs [new file with mode: 0644]
time.cabal

index 370e0a5..45f9a72 100644 (file)
@@ -5,23 +5,24 @@ module Data.Time.Format
     module Data.Time.Format.Parse
     ) where
 
-import Data.Time.Format.Parse
+import Data.Maybe
+import Data.Char
+import Data.Fixed
 
-import Data.Time.LocalTime.TimeZone
-import Data.Time.LocalTime.TimeOfDay
-import Data.Time.LocalTime.LocalTime
+import Data.Time.Clock.Internal.UniversalTime
+import Data.Time.Clock.Internal.UTCTime
+import Data.Time.Clock.POSIX
 import Data.Time.Calendar.Days
 import Data.Time.Calendar.Gregorian
 import Data.Time.Calendar.WeekDate
 import Data.Time.Calendar.OrdinalDate
 import Data.Time.Calendar.Private
-import Data.Time.Clock.Internal.UniversalTime
-import Data.Time.Clock.Internal.UTCTime
-import Data.Time.Clock.POSIX
+import Data.Time.LocalTime.Internal.TimeZone
+import Data.Time.LocalTime.Internal.TimeOfDay
+import Data.Time.LocalTime.Internal.LocalTime
+import Data.Time.LocalTime.Internal.ZonedTime
+import Data.Time.Format.Parse
 
-import Data.Maybe
-import Data.Char
-import Data.Fixed
 
 -- <http://www.opengroup.org/onlinepubs/007908799/xsh/strftime.html>
 class FormatTime t where
index e0e57c9..ddb4a27 100644 (file)
@@ -11,7 +11,7 @@ module Data.Time.Format.Locale (
     )
 where
 
-import Data.Time.LocalTime.TimeZone
+import Data.Time.LocalTime.Internal.TimeZone
 
 
 data TimeLocale = TimeLocale {
index 330693e..7715697 100644 (file)
@@ -23,9 +23,10 @@ import Data.Time.Calendar.Gregorian
 import Data.Time.Calendar.OrdinalDate
 import Data.Time.Calendar.WeekDate
 import Data.Time.Calendar.Private(clipValid)
-import Data.Time.LocalTime.TimeZone
-import Data.Time.LocalTime.TimeOfDay
-import Data.Time.LocalTime.LocalTime
+import Data.Time.LocalTime.Internal.TimeZone
+import Data.Time.LocalTime.Internal.TimeOfDay
+import Data.Time.LocalTime.Internal.LocalTime
+import Data.Time.LocalTime.Internal.ZonedTime
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ((<$>),(<*>))
index 735d826..d450d85 100644 (file)
@@ -1,11 +1,13 @@
 module Data.Time.LocalTime
 (
-    module Data.Time.LocalTime.TimeZone,
-    module Data.Time.LocalTime.TimeOfDay,
-    module Data.Time.LocalTime.LocalTime
+    module Data.Time.LocalTime.Internal.TimeZone,
+    module Data.Time.LocalTime.Internal.TimeOfDay,
+    module Data.Time.LocalTime.Internal.LocalTime,
+    module Data.Time.LocalTime.Internal.ZonedTime,
 ) where
 
 import Data.Time.Format()
-import Data.Time.LocalTime.TimeZone
-import Data.Time.LocalTime.TimeOfDay
-import Data.Time.LocalTime.LocalTime
+import Data.Time.LocalTime.Internal.TimeZone
+import Data.Time.LocalTime.Internal.TimeOfDay
+import Data.Time.LocalTime.Internal.LocalTime
+import Data.Time.LocalTime.Internal.ZonedTime
similarity index 63%
rename from lib/Data/Time/LocalTime/LocalTime.hs
rename to lib/Data/Time/LocalTime/Internal/LocalTime.hs
index 5c7dd21..8fe562c 100644 (file)
@@ -1,34 +1,30 @@
-{-# OPTIONS -fno-warn-orphans -fno-warn-unused-imports #-}
+{-# OPTIONS -fno-warn-orphans #-}
 #include "HsConfigure.h"
 
 -- #hide
-module Data.Time.LocalTime.LocalTime
+module Data.Time.LocalTime.Internal.LocalTime
 (
     -- * Local Time
     LocalTime(..),
 
     -- converting UTC and UT1 times to LocalTime
     utcToLocalTime,localTimeToUTC,ut1ToLocalTime,localTimeToUT1,
-
-    ZonedTime(..),utcToZonedTime,zonedTimeToUTC,getZonedTime,utcToLocalZonedTime
 ) where
 
-import Data.Time.LocalTime.TimeOfDay
-import Data.Time.LocalTime.TimeZone
-import Data.Time.Calendar.Days
-import Data.Time.Calendar.Gregorian
 
-import Data.Time.Clock.Internal.DiffTime
-import Data.Time.Clock.Internal.UniversalTime
-import Data.Time.Clock.Internal.UTCDiff
-import Data.Time.Clock.Internal.UTCTime
-import Data.Time.Clock.POSIX
 
 import Control.DeepSeq
 import Data.Typeable
 #if LANGUAGE_Rank2Types
 import Data.Data
 #endif
+import Data.Time.Calendar.Days
+import Data.Time.Calendar.Gregorian
+import Data.Time.Clock.Internal.UniversalTime
+import Data.Time.Clock.Internal.UTCTime
+import Data.Time.LocalTime.Internal.TimeOfDay
+import Data.Time.LocalTime.Internal.TimeZone
+
 
 -- | A simple day and time aggregate, where the day is of the specified parameter,
 -- and the time is a TimeOfDay.
@@ -77,44 +73,3 @@ localTimeToUT1 long (LocalTime (ModifiedJulianDay localMJD) tod) = ModJulianDate
 -- orphan instance
 instance Show UniversalTime where
     show t = show (ut1ToLocalTime 0 t)
-
--- | A local time together with a TimeZone.
-data ZonedTime = ZonedTime {
-    zonedTimeToLocalTime :: LocalTime,
-    zonedTimeZone :: TimeZone
-}
-#if LANGUAGE_DeriveDataTypeable
-#if LANGUAGE_Rank2Types
-#if HAS_DataPico
-    deriving (Data, Typeable)
-#endif
-#endif
-#endif
-
-instance NFData ZonedTime where
-    rnf (ZonedTime lt z) = rnf lt `seq` rnf z `seq` ()
-
-utcToZonedTime :: TimeZone -> UTCTime -> ZonedTime
-utcToZonedTime zone time = ZonedTime (utcToLocalTime zone time) zone
-
-zonedTimeToUTC :: ZonedTime -> UTCTime
-zonedTimeToUTC (ZonedTime t zone) = localTimeToUTC zone t
-
-instance Show ZonedTime where
-    show (ZonedTime t zone) = show t ++ " " ++ show zone
-
--- orphan instance
-instance Show UTCTime where
-    show t = show (utcToZonedTime utc t)
-
-getZonedTime :: IO ZonedTime
-getZonedTime = do
-    t <- getCurrentTime
-    zone <- getTimeZone t
-    return (utcToZonedTime zone t)
-
--- |
-utcToLocalZonedTime :: UTCTime -> IO ZonedTime
-utcToLocalZonedTime t = do
-    zone <- getTimeZone t
-    return (utcToZonedTime zone t)
similarity index 97%
rename from lib/Data/Time/LocalTime/TimeOfDay.hs
rename to lib/Data/Time/LocalTime/Internal/TimeOfDay.hs
index eed6dde..10ad5fb 100644 (file)
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-unused-imports #-}
 #include "HsConfigure.h"
 -- #hide
-module Data.Time.LocalTime.TimeOfDay
+module Data.Time.LocalTime.Internal.TimeOfDay
 (
     -- * Time of day
     TimeOfDay(..),midnight,midday,makeTimeOfDayValid,
@@ -10,15 +10,16 @@ module Data.Time.LocalTime.TimeOfDay
     dayFractionToTimeOfDay,timeOfDayToDayFraction
 ) where
 
-import Data.Time.LocalTime.TimeZone
-import Data.Time.Calendar.Private
-import Data.Time.Clock.Internal.DiffTime
 import Control.DeepSeq
 import Data.Typeable
 import Data.Fixed
 #if LANGUAGE_Rank2Types
 import Data.Data
 #endif
+import Data.Time.Clock.Internal.DiffTime
+import Data.Time.Calendar.Private
+import Data.Time.LocalTime.Internal.TimeZone
+
 
 -- | Time of day as represented in hour, minute and second (with picoseconds), typically used to express local time of day.
 data TimeOfDay = TimeOfDay {
similarity index 98%
rename from lib/Data/Time/LocalTime/TimeZone.hs
rename to lib/Data/Time/LocalTime/Internal/TimeZone.hs
index bbb8fe2..30c9052 100644 (file)
@@ -3,7 +3,7 @@
 #include "HsConfigure.h"
 
 -- #hide
-module Data.Time.LocalTime.TimeZone
+module Data.Time.LocalTime.Internal.TimeZone
 (
     -- * Time zones
     TimeZone(..),timeZoneOffsetString,timeZoneOffsetString',minutesToTimeZone,hoursToTimeZone,utc,
diff --git a/lib/Data/Time/LocalTime/Internal/ZonedTime.hs b/lib/Data/Time/LocalTime/Internal/ZonedTime.hs
new file mode 100644 (file)
index 0000000..1630b07
--- /dev/null
@@ -0,0 +1,61 @@
+{-# OPTIONS -fno-warn-orphans #-}
+#include "HsConfigure.h"
+
+-- #hide
+module Data.Time.LocalTime.Internal.ZonedTime
+(
+    ZonedTime(..),utcToZonedTime,zonedTimeToUTC,getZonedTime,utcToLocalZonedTime
+) where
+
+import Control.DeepSeq
+import Data.Typeable
+#if LANGUAGE_Rank2Types
+import Data.Data
+#endif
+
+import Data.Time.Clock.Internal.UTCTime
+import Data.Time.Clock.POSIX
+import Data.Time.LocalTime.Internal.TimeZone
+import Data.Time.LocalTime.Internal.LocalTime
+
+
+-- | A local time together with a TimeZone.
+data ZonedTime = ZonedTime {
+    zonedTimeToLocalTime :: LocalTime,
+    zonedTimeZone :: TimeZone
+}
+#if LANGUAGE_DeriveDataTypeable
+#if LANGUAGE_Rank2Types
+#if HAS_DataPico
+    deriving (Data, Typeable)
+#endif
+#endif
+#endif
+
+instance NFData ZonedTime where
+    rnf (ZonedTime lt z) = rnf lt `seq` rnf z `seq` ()
+
+utcToZonedTime :: TimeZone -> UTCTime -> ZonedTime
+utcToZonedTime zone time = ZonedTime (utcToLocalTime zone time) zone
+
+zonedTimeToUTC :: ZonedTime -> UTCTime
+zonedTimeToUTC (ZonedTime t zone) = localTimeToUTC zone t
+
+instance Show ZonedTime where
+    show (ZonedTime t zone) = show t ++ " " ++ show zone
+
+-- orphan instance
+instance Show UTCTime where
+    show t = show (utcToZonedTime utc t)
+
+getZonedTime :: IO ZonedTime
+getZonedTime = do
+    t <- getCurrentTime
+    zone <- getTimeZone t
+    return (utcToZonedTime zone t)
+
+-- |
+utcToLocalZonedTime :: UTCTime -> IO ZonedTime
+utcToLocalZonedTime t = do
+    zone <- getTimeZone t
+    return (utcToZonedTime zone t)
index ebb33d2..042984d 100644 (file)
@@ -85,9 +85,10 @@ library
         Data.Time.Clock.Internal.CTimeval,
         Data.Time.Clock.Internal.CTimespec,
         Data.Time.Clock.Internal.UTCDiff,
-        Data.Time.LocalTime.TimeZone,
-        Data.Time.LocalTime.TimeOfDay,
-        Data.Time.LocalTime.LocalTime,
+        Data.Time.LocalTime.Internal.TimeZone,
+        Data.Time.LocalTime.Internal.TimeOfDay,
+        Data.Time.LocalTime.Internal.LocalTime,
+        Data.Time.LocalTime.Internal.ZonedTime,
         Data.Time.Format.Parse
         Data.Time.Format.Locale
     include-dirs: lib/include