postgresql-libpq 0.8.2.5 → 0.8.2.6

raw patch · 2 files changed

+9/−9 lines, 2 files

Files

• postgresql-libpq.cabal +2/−2
• src/Database/PostgreSQL/LibPQ.hsc +7/−7

@@ -1,5 +1,5 @@ Name:                postgresql-libpq-Version:             0.8.2.5+Version:             0.8.2.6 Synopsis:            low-level binding to libpq  Description:         This is a binding to libpq: the C application@@ -42,4 +42,4 @@ source-repository this   type:     git   location: http://github.com/lpsmith/postgresql-libpq-  tag:      v0.8.2.5+  tag:      v0.8.2.6

@@ -1288,7 +1288,7 @@         else do cstr <- c_PQgetvalue ptr rowNum colNum                 l <- c_PQgetlength ptr rowNum colNum                 fp' <- FC.newForeignPtr (castPtr cstr) finalizer-                return $ Just $ B.fromForeignPtr fp' 0 $ fromIntegral l+                return $! Just $! B.fromForeignPtr fp' 0 $ fromIntegral l      where       finalizer = touchForeignPtr fp@@ -1441,7 +1441,7 @@                 then return Nothing                 else do tofp <- newForeignPtr p_PQfreemem to                         l <- peek to_length-                        return $ Just $ B.fromForeignPtr tofp 0 ((fromIntegral l) - 1)+                        return $! Just $! B.fromForeignPtr tofp 0 ((fromIntegral l) - 1)   -- | Converts a 'ByteString' representation of binary data into binary@@ -1469,7 +1469,7 @@             then return Nothing             else do tofp <- newForeignPtr p_PQfreemem to                     l <- peek to_length-                    return $ Just $ B.fromForeignPtr tofp 0 $ fromIntegral l+                    return $! Just $! B.fromForeignPtr tofp 0 $ fromIntegral l   -- $copy@@ -1847,7 +1847,7 @@               _ -> do l <- fromIntegral `fmap` B.c_strlen errbuf                      fp' <- newForeignPtr finalizerFree $ castPtr errbuf-                     return $ Left $ B.fromForeignPtr fp' 0 l+                     return $! Left $! B.fromForeignPtr fp' 0 l      where       errbufsize = 256@@ -2038,7 +2038,7 @@              then return Nothing              else do l <- fromIntegral `fmap` B.c_strlen cstr                      fp' <- FC.newForeignPtr (castPtr cstr) finalizer-                     return $ Just $ B.fromForeignPtr fp' 0 l+                     return $! Just $! B.fromForeignPtr fp' 0 l     where       finalizer = touchForeignPtr fp @@ -2210,7 +2210,7 @@           else do                   bufre <- reallocBytes buf len                   buffp <- newForeignPtr finalizerFree bufre-                  return (Just (B.fromForeignPtr buffp 0 len))+                  return $! Just $! B.fromForeignPtr buffp 0 len  -- | Changes the current read or write location associated with -- a large object descriptor.    The return value is the new location@@ -2224,7 +2224,7 @@                                      AbsoluteSeek -> #const SEEK_SET                                      RelativeSeek -> #const SEEK_CUR                                      SeekFromEnd  -> #const SEEK_END-        return (nonnegInt pos)+        return $! nonnegInt pos  -- | Obtains the current read or write location of a large object descriptor.