2003875 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

on master help sign in

Fix compatibility with PostgreSQL 8.1

2003875Leon P Smith14 years ago

postgresql-simple.cabal+1−1

@@ -1,5 +1,5 @@

1Name: postgresql-simple

2−Version: 0.2

2+Version: 0.2.0.1

3Synopsis: Mid-Level PostgreSQL client library

4Description:

5 Mid-Level PostgreSQL client library, forked from mysql-simple.

src/Database/PostgreSQL/Simple/Internal.hs+7−3

@@ -153,9 +153,13 @@ connectPostgreSQL connstr = do

153 connectionHandle <- newMVar conn

154 connectionObjects <- newMVar (IntMap.empty)

155 let wconn = Connection{..}

156+ version <- PQ.serverVersion conn

157+ let settings

158+ | version < 80200 = "SET datestyle TO ISO"

156− _ <- execute_ wconn "SET standard_conforming_strings TO on;\

159+ | otherwise = "SET standard_conforming_strings TO on;\

157− \SET datestyle TO ISO"

160+ \SET datestyle TO ISO"

161+ _ <- execute_ wconn settings

158− return Connection{..}

162+ return wconn

159 _ -> do

163 _ -> do

160 msg <- maybe "connectPostgreSQL error" id <$> PQ.errorMessage conn

164 msg <- maybe "connectPostgreSQL error" id <$> PQ.errorMessage conn

161 throwIO $ SqlError { sqlNativeError = -1 -- FIXME?

165 throwIO $ SqlError { sqlNativeError = -1 -- FIXME?