Skip to content
Browse files

fix binding size for MYSQL_TYPE_LONG columns.

--HG--
extra : convert_revision : fe69495730f9f69dbd8ac48dc212bca77ce14588
  • Loading branch information...
1 parent 63bdde9 commit ba00739e5d343845e5c0b0c66846e2b8032ab233 @waterson waterson committed Feb 26, 2009
Showing with 8 additions and 3 deletions.
  1. +6 −1 ChangeLog
  2. +1 −1 Database/HDBC/MySQL/Connection.hsc
  3. +1 −1 HDBC-mysql.cabal
View
7 ChangeLog
@@ -1,4 +1,9 @@
-2009-02-18 Chris Waterson <waterson@pixazza.com>
+2009-02-26 Chris Waterson <waterson@maubi.net>
+
+ * HDBC-mysql-0.4. Fix incorrect binding size (should always be 4
+ bytes, not compiler's "long") for MYSQL_TYPE_LONG columns.
+
+2009-02-18 Chris Waterson <waterson@maubi.net>
* HDBC-mysql-0.3 Deal with some of the problems where statements
would mysteriously "close". It turns out that only one statement
View
2 Database/HDBC/MySQL/Connection.hsc
@@ -516,7 +516,7 @@ cellValue bind = do
nonNullCellValue :: CInt -> Ptr () -> CULong -> IO Types.SqlValue
nonNullCellValue #{const MYSQL_TYPE_LONG} p _ = do
- n :: CLong <- peek $ castPtr p
+ n :: CInt <- peek $ castPtr p
return $ Types.SqlInteger (fromIntegral n)
nonNullCellValue #{const MYSQL_TYPE_LONGLONG} p _ = do
View
2 HDBC-mysql.cabal
@@ -1,7 +1,7 @@
Name: HDBC-mysql
Category: Database
Synopsis: MySQL driver for HDBC
-Version: 0.3
+Version: 0.4
Description: This package provides a MySQL driver for HDBC.
Stability: Experimental
Maintainer: Chris Waterson <waterson@maubi.net>

0 comments on commit ba00739

Please sign in to comment.
Something went wrong with that request. Please try again.