diff --git a/Database/HDBC/Locale.hs b/Database/HDBC/Locale.hs index e62b1c1..976a6a9 100644 --- a/Database/HDBC/Locale.hs +++ b/Database/HDBC/Locale.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} module Database.HDBC.Locale ( defaultTimeLocale, @@ -5,7 +6,12 @@ module Database.HDBC.Locale ) where + +#if MIN_VERSION_time(1,5,0) +import Data.Time.Format (defaultTimeLocale) +#else import System.Locale (defaultTimeLocale) +#endif -- | As the semantic of System.Locale.iso8601DateFormat has changed with -- old-locale-1.0.0.2 in a non-compatible way, we now define our own diff --git a/Database/HDBC/SqlValue.hs b/Database/HDBC/SqlValue.hs index 9724f81..0e278cd 100644 --- a/Database/HDBC/SqlValue.hs +++ b/Database/HDBC/SqlValue.hs @@ -17,7 +17,11 @@ import Data.Char(ord,toUpper) import Data.Word import Data.Int import qualified System.Time as ST -import Data.Time +import Data.Time ( Day (ModifiedJulianDay), DiffTime, LocalTime, NominalDiffTime, ParseTime + , TimeOfDay, TimeZone, UTCTime, ZonedTime, formatTime, localDay, localTimeOfDay + , parseTime, timeOfDayToTime, timeToTimeOfDay, toModifiedJulianDay, utc + , utcToZonedTime, zonedTimeToLocalTime, zonedTimeToUTC, zonedTimeZone + ) import Data.Time.Clock.POSIX import Database.HDBC.Locale (defaultTimeLocale, iso8601DateFormat) import Data.Ratio