2d197f9 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

on master help sign in

Fix some compiler warnings

2d197f9Leon P Smith14 years ago

src/Database/PostgreSQL/Simple.hs+1−1

@@ -205,7 +205,7 @@ escapeByteaConn conn s =

205 PQ.escapeByteaConn c s >>= checkError c

206

207checkError :: PQ.Connection -> Maybe a -> IO (Either ByteString a)

208−checkError c (Just x) = return $ Right x

208+checkError _ (Just x) = return $ Right x

209checkError c Nothing = Left . maybe "" id <$> PQ.errorMessage c

210

211buildQuery :: Connection -> Query -> ByteString -> [Action] -> IO Builder

src/Database/PostgreSQL/Simple/FromRow.hs+1−1

@@ -33,7 +33,7 @@ import Database.PostgreSQL.Simple.Ok

33import qualified Database.PostgreSQL.LibPQ as PQ

34import Database.PostgreSQL.Simple.Internal

35import Database.PostgreSQL.Simple.FromField

36−import Database.PostgreSQL.Simple.Types

36+import Database.PostgreSQL.Simple.Types ((:.)(..))

38import Control.Monad.Trans.State.Strict

39import Control.Monad.Trans.Reader