git.iko.soy/typeable/postgresql-simple
on master help sign in
Use time-compat
0d8e76eOleg Grenrus
postgresql-simple.cabal+3−3
@@ -82,7 +82,7 @@ library
82 , containers >=0.5.0.0 && <0.7
82 , containers >=0.5.0.0 && <0.7
83 , template-haskell >=2.8.0.0 && <2.17
83 , template-haskell >=2.8.0.0 && <2.17
84 , text >=1.2.3.0 && <1.3
84 , text >=1.2.3.0 && <1.3
85− , time >=1.9.0.0 && <1.12
85+ , time-compat >=1.9.5 && <1.12
86 , transformers >=0.3.0.0 && <0.6
86 , transformers >=0.3.0.0 && <0.6
87
87
88 -- Other dependencies
88 -- Other dependencies
@@ -93,7 +93,7 @@ library
93 , case-insensitive >=1.2.0.11 && <1.3
93 , case-insensitive >=1.2.0.11 && <1.3
94 , hashable >=1.2.7.0 && <1.4
94 , hashable >=1.2.7.0 && <1.4
95 , Only >=0.1 && <0.1.1
95 , Only >=0.1 && <0.1.1
96− , postgresql-libpq >=0.9.4.2 && <0.10
96+ , postgresql-libpq >=0.9.4.3 && <0.10
97 , scientific >=0.3.6.2 && <0.4
97 , scientific >=0.3.6.2 && <0.4
98 , uuid-types >=1.0.3 && <1.1
98 , uuid-types >=1.0.3 && <1.1
99 , vector >=0.12.0.1 && <0.13
99 , vector >=0.12.0.1 && <0.13
@@ -177,7 +177,7 @@ test-suite test
177 , tasty-golden
177 , tasty-golden
178 , tasty-hunit
178 , tasty-hunit
179 , text
179 , text
180− , time
180+ , time-compat
181 , vector
181 , vector
182
182
183 if !impl(ghc >=7.6)
183 if !impl(ghc >=7.6)
src/Database/PostgreSQL/Simple/FromField.hs+1−1
@@ -129,7 +129,7 @@ import Data.Functor.Identity (Identity(Identity))
129import Data.Int (Int16, Int32, Int64)
129import Data.Int (Int16, Int32, Int64)
130import Data.IORef (IORef, newIORef)
130import Data.IORef (IORef, newIORef)
131import Data.Ratio (Ratio)
131import Data.Ratio (Ratio)
132−import Data.Time ( UTCTime, ZonedTime, LocalTime, Day, TimeOfDay, CalendarDiffTime )
132+import Data.Time.Compat ( UTCTime, ZonedTime, LocalTime, Day, TimeOfDay, CalendarDiffTime )
133import Data.Typeable (Typeable, typeOf)
133import Data.Typeable (Typeable, typeOf)
134import Data.Vector (Vector)
134import Data.Vector (Vector)
135import Data.Vector.Mutable (IOVector)
135import Data.Vector.Mutable (IOVector)
src/Database/PostgreSQL/Simple/Range.hs+1−1
@@ -38,7 +38,7 @@ import Data.Monoid (mempty)
38import Data.Scientific (Scientific)
38import Data.Scientific (Scientific)
39import qualified Data.Text.Lazy.Builder as LT
39import qualified Data.Text.Lazy.Builder as LT
40import qualified Data.Text.Lazy.Encoding as LT
40import qualified Data.Text.Lazy.Encoding as LT
41−import Data.Time (Day, LocalTime,
41+import Data.Time.Compat (Day, LocalTime,
42 NominalDiffTime,
42 NominalDiffTime,
43 TimeOfDay, UTCTime,
43 TimeOfDay, UTCTime,
44 ZonedTime,
44 ZonedTime,
src/Database/PostgreSQL/Simple/Time/Implementation.hs+2−2
@@ -18,8 +18,8 @@ import Data.ByteString.Builder.Prim(primBounded)
18import Control.Arrow((***))
18import Control.Arrow((***))
19import Control.Applicative
19import Control.Applicative
20import qualified Data.ByteString as B
20import qualified Data.ByteString as B
21−import Data.Time hiding (getTimeZone, getZonedTime)
21+import Data.Time.Compat (LocalTime, UTCTime, ZonedTime, Day, TimeOfDay, TimeZone, NominalDiffTime, utc)
22−import Data.Time.LocalTime (CalendarDiffTime)
22+import Data.Time.LocalTime.Compat (CalendarDiffTime)
23import Data.Typeable
23import Data.Typeable
24import Data.Maybe (fromMaybe)
24import Data.Maybe (fromMaybe)
25import qualified Data.Attoparsec.ByteString.Char8 as A
25import qualified Data.Attoparsec.ByteString.Char8 as A
src/Database/PostgreSQL/Simple/Time/Internal/Parser.hs+5−5
@@ -33,12 +33,12 @@ import Data.Char (ord)
33import Data.Fixed (Pico)
33import Data.Fixed (Pico)
34import Data.Int (Int64)
34import Data.Int (Int64)
35import Data.Maybe (fromMaybe)
35import Data.Maybe (fromMaybe)
36−import Data.Time.Calendar (Day, fromGregorianValid, addDays)
36+import Data.Time.Calendar.Compat (Day, fromGregorianValid, addDays)
37−import Data.Time.Clock (UTCTime(..))
37+import Data.Time.Clock.Compat (UTCTime(..))
38−import Data.Time.Format.ISO8601 (iso8601ParseM)
38+import Data.Time.Format.ISO8601.Compat (iso8601ParseM)
39−import Data.Time.LocalTime (CalendarDiffTime)
39+import Data.Time.LocalTime.Compat (CalendarDiffTime)
40import qualified Data.ByteString.Char8 as B8
40import qualified Data.ByteString.Char8 as B8
41−import qualified Data.Time.LocalTime as Local
41+import qualified Data.Time.LocalTime.Compat as Local
42
42
43-- | Parse a date of the form @YYYY-MM-DD@.
43-- | Parse a date of the form @YYYY-MM-DD@.
44day :: Parser Day
44day :: Parser Day
src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs+3−3
@@ -28,12 +28,12 @@ import Data.ByteString.Builder.Prim
28import Data.Char ( chr )
28import Data.Char ( chr )
29import Data.Int ( Int32, Int64 )
29import Data.Int ( Int32, Int64 )
30import Data.String (fromString)
30import Data.String (fromString)
31−import Data.Time
31+import Data.Time.Compat
32 ( UTCTime(..), ZonedTime(..), LocalTime(..), NominalDiffTime
32 ( UTCTime(..), ZonedTime(..), LocalTime(..), NominalDiffTime
33 , Day, toGregorian, TimeOfDay(..), timeToTimeOfDay
33 , Day, toGregorian, TimeOfDay(..), timeToTimeOfDay
34 , TimeZone, timeZoneMinutes )
34 , TimeZone, timeZoneMinutes )
35−import Data.Time.Format.ISO8601 (iso8601Show)
35+import Data.Time.Format.ISO8601.Compat (iso8601Show)
36−import Data.Time.LocalTime (CalendarDiffTime)
36+import Data.Time.LocalTime.Compat (CalendarDiffTime)
37import Database.PostgreSQL.Simple.Compat ((<>), fromPico)
37import Database.PostgreSQL.Simple.Compat ((<>), fromPico)
38import Unsafe.Coerce (unsafeCoerce)
38import Unsafe.Coerce (unsafeCoerce)
39
39
src/Database/PostgreSQL/Simple/ToField.hs+2−2
@@ -36,8 +36,8 @@ import Data.Functor.Identity (Identity(Identity))
36import Data.Int (Int8, Int16, Int32, Int64)
36import Data.Int (Int8, Int16, Int32, Int64)
37import Data.List (intersperse)
37import Data.List (intersperse)
38import Data.Monoid (mappend)
38import Data.Monoid (mappend)
39−import Data.Time (Day, TimeOfDay, LocalTime, UTCTime, ZonedTime, NominalDiffTime)
39+import Data.Time.Compat (Day, TimeOfDay, LocalTime, UTCTime, ZonedTime, NominalDiffTime)
40−import Data.Time.LocalTime (CalendarDiffTime)
40+import Data.Time.LocalTime.Compat (CalendarDiffTime)
41import Data.Typeable (Typeable)
41import Data.Typeable (Typeable)
42import Data.Word (Word, Word8, Word16, Word32, Word64)
42import Data.Word (Word, Word8, Word16, Word32, Word64)
43import {-# SOURCE #-} Database.PostgreSQL.Simple.ToRow
43import {-# SOURCE #-} Database.PostgreSQL.Simple.ToRow
test/Interval.hs+2−3
@@ -36,9 +36,8 @@ module Interval (testInterval) where
36
36
37import Common
37import Common
38import Control.Monad(forM_, replicateM_)
38import Control.Monad(forM_, replicateM_)
39−import Data.Time
39+import Data.Time.Compat
40−import Data.Time.LocalTime (CalendarDiffTime(..))
40+import Data.Time.LocalTime.Compat (CalendarDiffTime(..))
41−import Data.Time.LocalTime (CalendarDiffTime(..))
42import Data.ByteString(ByteString)
41import Data.ByteString(ByteString)
43import Database.PostgreSQL.Simple.SqlQQ
42import Database.PostgreSQL.Simple.SqlQQ
44
43
test/Main.hs+1−1
@@ -46,7 +46,7 @@ import qualified Data.Text.Encoding as T
46import qualified Data.Vector as V
46import qualified Data.Vector as V
47import System.FilePath
47import System.FilePath
48import System.Timeout(timeout)
48import System.Timeout(timeout)
49−import Data.Time(getCurrentTime, diffUTCTime)
49+import Data.Time.Compat (getCurrentTime, diffUTCTime)
50import System.Environment (getEnvironment)
50import System.Environment (getEnvironment)
51
51
52import Test.Tasty
52import Test.Tasty
test/Time.hs+1−1
@@ -36,7 +36,7 @@ module Time (testTime) where
36
36
37import Common
37import Common
38import Control.Monad(forM_, replicateM_)
38import Control.Monad(forM_, replicateM_)
39−import Data.Time
39+import Data.Time.Compat
40import Data.ByteString(ByteString)
40import Data.ByteString(ByteString)
41import Database.PostgreSQL.Simple.SqlQQ
41import Database.PostgreSQL.Simple.SqlQQ
42
42