2d197f9 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Fix some compiler warnings

commit2d197f937516d88ab1b755e8d33c8fb8499f80b9 authorLeon P Smith <leon@melding-monads.com> dateWed 9 May 2012, 05:54 (14 years ago) parentf9ee357

2 files changed+2−2

unifiedsplit

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

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

205205 PQ.escapeByteaConn c s >>= checkError c

206206

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

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

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

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

210210

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

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

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

3333import qualified Database.PostgreSQL.LibPQ as PQ

3434import Database.PostgreSQL.Simple.Internal

3535import Database.PostgreSQL.Simple.FromField

36−import Database.PostgreSQL.Simple.Types

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

3737

3838import Control.Monad.Trans.State.Strict

3939import Control.Monad.Trans.Reader