integrated with travis

Author: zohl

.travis.yml

@@ -0,0 +1,50 @@
+language: c
+
+sudo: false
+
+services:
+  - postgresql
+addons:
+  postgresql: "9.4"
+
+matrix:
+  include:
+    - env: CABALVER=1.18 GHCVER=7.8.4
+      addons: {apt: {packages: [cabal-install-1.18,ghc-7.8.4], sources: [hvr-ghc]}}
+    - env: CABALVER=1.22 GHCVER=7.10.3
+      addons: {apt: {packages: [cabal-install-1.22,ghc-7.10.3], sources: [hvr-ghc]}}
+    - env: CABALVER=1.24 GHCVER=8.0.1
+      addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.1], sources: [hvr-ghc]}}
+    - env: CABALVER=head GHCVER=head
+      addons: {apt: {packages: [cabal-install-head,ghc-head], sources: [hvr-ghc]}}
+
+  allow_failures:
+    - env: CABALVER=head GHCVER=head
+
+before_install:
+  - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH
+
+install:
+  - cabal --version
+  - echo "$(ghc --version) [$(ghc --print-project-git-commit-id 2> /dev/null || echo '?')]"
+  - travis_retry cabal update
+  - cabal install --only-dependencies --enable-tests
+
+before_script:
+  - psql -U postgres -c 'create database test_db;'
+  - psql -U postgres -c "create role test_role with password 'TEST' login;"
+
+script:
+  - case "$CABALVER" in
+     "1.18") cabal configure --enable-tests --enable-library-coverage -v2 -f dev ;;
+     *)      cabal configure --enable-tests --enable-coverage -v2 -f dev ;;
+    esac
+  - cabal build
+  - cabal test --show-details=always
+  - cabal sdist
+  - cabal haddock | grep "100%" | wc -l | grep "5"
+
+notifications:
+  email:
+    recipients:
+      - zohl@fmap.me

default.nix

@@ -11,8 +11,9 @@ mkDerivation {
     template-haskell text time
   ];
   testHaskellDepends = [
-    base bytestring case-conversion HUnit postgresql-simple text
+    attoparsec base bytestring case-conversion HUnit postgresql-simple
+    text
   ];
-  description = "A FFI-like bindings to stored functions";
+  description = "A FFI-like bindings for PostgreSQL stored functions";
   license = stdenv.lib.licenses.gpl3;
 }

examples/Common.hs

@@ -15,19 +15,19 @@ import qualified Data.ByteString.Char8 as BS
 
 
 data TestEnv = TestEnv {
-    connectInfo :: ConnectInfo
+    envConnectInfo :: ConnectInfo
   }
 
 bindOptions :: Options
 bindOptions = defaultOptions {
     nameModifier = convertCase Snake Camel . ("sql_" ++)
-  } 
+  }
 
 withConn :: ConnectInfo -> (Connection -> IO a) -> IO a
 withConn connectInfo = bracket (connect connectInfo) close
-  
+
 mkTest :: (Connection -> IO ()) -> (Connection -> IO()) -> TestEnv -> Test
-mkTest setup run env = TestCase $ withConn (connectInfo env)
+mkTest setup run env = TestCase $ withConn (envConnectInfo env)
   (\conn -> mapM_ ($ conn) [begin, setup, run, rollback])
 
 include :: Connection -> String -> IO ()

examples/ExMessages.hs

@@ -18,7 +18,7 @@ module ExMessages (
   ) where
 
 import Test.HUnit
-import Database.PostgreSQL.Simple.Bind (bindFunction)      
+import Database.PostgreSQL.Simple.Bind (bindFunction)
 import Database.PostgreSQL.Simple.Bind.Types()
 import Database.PostgreSQL.Simple (Connection)
 import Prelude hiding (getContents)

examples/ExNumDumpster.hs

@@ -18,7 +18,7 @@ module ExNumDumpster (
 import Test.HUnit
 import Database.PostgreSQL.Simple
 
-import Database.PostgreSQL.Simple.Bind (bindFunction)      
+import Database.PostgreSQL.Simple.Bind (bindFunction)
 import Database.PostgreSQL.Simple.Bind.Types()
 
 import Common (bindOptions, TestEnv, mkTest, include)
@@ -46,14 +46,14 @@ iterFib conn = do
   sqlClear conn
   addManyNums conn [x, x']
   return x'
-  
+
 
 numDumpster :: TestEnv -> Test
 numDumpster = mkTest (flip include "./examples/sql/numdumpster.sql")
   (\conn -> do
       sqlAddNum conn 1
       sqlGetLastNum conn >>= \x -> assertEqual "check get_last_num" 1 x
-       
+
       sqlClear conn
       addManyNums conn [1, 2, 3, 4]
       sqlGetAllNums conn >>= \xs -> assertEqual "check get_all_nums" [1, 2, 3, 4] xs

examples/ExUsers.hs

@@ -52,7 +52,7 @@ instance FromField User where
 
     parseValue bs = ($ (parseOnly parser bs)) $ either
       (returnError ConversionFailed f) pure
-    
+
     parser = do
       _         <- char '('
       userId'   <- decimal
@@ -76,8 +76,8 @@ users = mkTest (flip include "./examples/sql/users.sql")
 
       sqlGetUsers conn (Just "Mr. Ba_") >>=
         \xs -> assertEqual "check get_users 2" [mrBarId, mrBazId] (map userId xs)
-  
-      sqlDelUser conn mrBarId 
+
+      sqlDelUser conn mrBarId
 
       sqlGetUsers conn Nothing >>=
         \xs -> assertEqual "check get_users 3" [mrFooId, mrBazId] (map userId xs))

examples/Main.hs

@@ -6,18 +6,18 @@ import System.IO
 import System.Exit
 import Database.PostgreSQL.Simple
 
-import Common          (TestEnv(..), connectInfo)
+import Common          (TestEnv(..))
 import ExNumDumpster
 import ExUsers
 import ExMessages
 
 testEnv :: TestEnv
 testEnv = TestEnv {
-    connectInfo = ConnectInfo {
+    envConnectInfo = ConnectInfo {
         connectHost     = "localhost"
       , connectPort     = 5432
-      , connectDatabase = "test"
-      , connectUser     = "test"
+      , connectDatabase = "test_db"
+      , connectUser     = "test_role"
       , connectPassword = "TEST"
       }
   }
@@ -32,7 +32,7 @@ tests = [
 main :: IO ()
 main = do
   mapM_ (`hSetBuffering` LineBuffering) [stdout, stderr]
- 
+
   Counts {cases, tried, errors, failures} <- runTestTT $ TestList $ map ($ testEnv) tests
   when (cases /= tried || errors /= 0 || failures /= 0) $ exitFailure
 

postgresql-simple-bind.cabal

@@ -1,32 +1,37 @@
 name:                postgresql-simple-bind
 version:             0.1.0.0
 synopsis:            A FFI-like bindings for PostgreSQL stored functions
-description:         For tutorial see here: https:\/\/github.com\/zohl\/postgresql-simple-bind\/blob\/master\/README.md 
+description:         For tutorial see here: https:\/\/github.com\/zohl\/postgresql-simple-bind\/blob\/master\/README.md
 license:             GPL-3
 license-file:        LICENSE
 author:              Al Zohali
 maintainer:          Al Zohali <zohl@fmap.me>
--- copyright:           
+-- copyright:
 category:            Database
 build-type:          Simple
--- extra-source-files:  
+-- extra-source-files:
 cabal-version:       >=1.10
 
+flag dev
+  description:        Turn on development settings.
+  manual:             True
+  default:            False
+
 source-repository head
   type:     git
   location: https://github.com/zohl/postgresql-simple-bind.git
 
 library
-  build-depends: base >=4.8 && <4.9
-               , attoparsec
-               , bytestring
-               , heredoc
-               , postgresql-simple
-               , template-haskell
-               , text
-               , time
-                      
-  hs-source-dirs:      src
+  build-depends: base >= 4.8 && < 5.0
+               , attoparsec >= 0.13.0 && < 0.14
+               , bytestring >= 0.10.8 && < 0.11
+               , heredoc >= 0.2.0 && < 0.3
+               , postgresql-simple >= 0.5.2 && < 0.6
+               , template-haskell >= 2.11.0 && < 2.12
+               , text >= 1.2.2 && < 1.3
+               , time >= 1.6.0 && < 1.7
+
+  hs-source-dirs: src
   exposed-modules:
      Database.PostgreSQL.Simple.Bind
      Database.PostgreSQL.Simple.Bind.Types
@@ -35,9 +40,13 @@ library
 
   other-modules:
      Database.PostgreSQL.Simple.Bind.Implementation
-          
+
   default-language:    Haskell2010
 
+  if flag(dev)
+    ghc-options:      -Wall -Werror
+  else
+    ghc-options:      -O2 -Wall
 
 
 test-suite tests
@@ -48,17 +57,21 @@ test-suite tests
 
   ghc-options: -Wall
 
-  build-depends: base
-               , bytestring
+  build-depends: base >= 4.8 && < 5.0
+               , bytestring >= 0.10.8 && < 0.11
                , HUnit
-               , postgresql-simple
+               , postgresql-simple >= 0.5.2 && < 0.6
                , postgresql-simple-bind
-               , text
+               , text >= 1.2.2 && < 1.3
 
   default-language:    Haskell2010
 
+  if flag(dev)
+    ghc-options:      -Wall -Werror
+  else
+    ghc-options:      -O2 -Wall
+
 
-  
 test-suite examples
   type:           exitcode-stdio-1.0
 
@@ -67,13 +80,18 @@ test-suite examples
 
   ghc-options: -Wall
 
-  build-depends: attoparsec
-               , base
-               , bytestring
+  build-depends: base >= 4.8 && < 5.0
+               , attoparsec >= 0.13.0 && < 0.14
+               , bytestring >= 0.10.8 && < 0.11
                , case-conversion
                , HUnit
-               , postgresql-simple
+               , postgresql-simple >= 0.5.2 && < 0.6
                , postgresql-simple-bind
-               , text
+               , text >= 1.2.2 && < 1.3
 
   default-language:    Haskell2010
+
+  if flag(dev)
+    ghc-options:      -Wall -Wno-redundant-constraints -Werror
+  else
+    ghc-options:      -O2 -Wall -Wno-redundant-constraints

src/Database/PostgreSQL/Simple/Bind.hs

@@ -12,7 +12,7 @@
   faciliates and automates bindings creation. This is especially useful in a
   design pattern where an application communicates with a database via API hiding
   the internal structure of the latter.
-  
+
 -}
 
 module Database.PostgreSQL.Simple.Bind (