git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #129 from zalora/travis
e4819c6Leon P Smith
.ghci+16−2
@@ -1,2 +1,16 @@
1−:set -isrc
1+:set -isrc -itest -optP-includedist/build/autogen/cabal_macros.h
2−:set Wall
2+:set -Wall -fno-warn-name-shadowing
3+
4+:set -XDoAndIfThenElse
5+:set -XOverloadedStrings
6+:set -XBangPatterns
7+:set -XViewPatterns
8+:set -XTypeOperators
9+
10+-- for tests
11+:set -XNamedFieldPuns
12+:set -XRank2Types
13+:set -XRecordWildCards
14+:set -XPatternGuards
15+:set -XScopedTypeVariables
16+:set -fno-warn-unused-do-bind
.travis.ymlnew file+7
@@ -0,0 +1,7 @@
1+language: haskell
2+
3+addons:
4+ postgresql: "9.3"
5+
6+before_install:
7+ - createdb `whoami`
src/Database/PostgreSQL/Simple/Arrays.hs+1−1
@@ -17,7 +17,7 @@ import Control.Applicative (Applicative(..), Alternative(..), (<$>))
17import Data.ByteString.Char8 (ByteString)
17import Data.ByteString.Char8 (ByteString)
18import qualified Data.ByteString.Char8 as B
18import qualified Data.ByteString.Char8 as B
19import Data.Monoid
19import Data.Monoid
20−import Data.Attoparsec.Char8
20+import Data.Attoparsec.ByteString.Char8
21
21
22
22
23-- | Parse one of three primitive field formats: array, quoted and plain.
23-- | Parse one of three primitive field formats: array, quoted and plain.
src/Database/PostgreSQL/Simple/Errors.hs+1−1
@@ -28,7 +28,7 @@ module Database.PostgreSQL.Simple.Errors
28import Control.Applicative
28import Control.Applicative
29import Control.Exception as E
29import Control.Exception as E
30
30
31−import Data.Attoparsec.Char8
31+import Data.Attoparsec.ByteString.Char8
32import Data.ByteString (ByteString)
32import Data.ByteString (ByteString)
33import Data.Typeable
33import Data.Typeable
34
34
src/Database/PostgreSQL/Simple/Time/Implementation.hs+1−1
@@ -25,7 +25,7 @@ import Data.ByteString.Internal (c2w, w2c)
25import Data.Time hiding (getTimeZone, getZonedTime)
25import Data.Time hiding (getTimeZone, getZonedTime)
26import Data.Typeable
26import Data.Typeable
27import Data.Word(Word8)
27import Data.Word(Word8)
28−import qualified Data.Attoparsec.Char8 as A
28+import qualified Data.Attoparsec.ByteString.Char8 as A
29import Data.Monoid(Monoid(..))
29import Data.Monoid(Monoid(..))
30import Data.Fixed (Pico)
30import Data.Fixed (Pico)
31import Unsafe.Coerce
31import Unsafe.Coerce
test/Main.hs+1
@@ -167,6 +167,7 @@ testArray TestEnv{..} = TestCase $ do
167
167
168testHStore :: TestEnv -> Test
168testHStore :: TestEnv -> Test
169testHStore TestEnv{..} = TestCase $ do
169testHStore TestEnv{..} = TestCase $ do
170+ execute_ conn "CREATE EXTENSION IF NOT EXISTS hstore"
170 roundTrip []
171 roundTrip []
171 roundTrip [("foo","bar"),("bar","baz"),("baz","hello")]
172 roundTrip [("foo","bar"),("bar","baz"),("baz","hello")]
172 roundTrip [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")]
173 roundTrip [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")]