simplest-sqlite 0.1.0.6 → 0.1.0.7

raw patch · 2 files changed

+5/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• simplest-sqlite.cabal +1/−1
• src/Database/SmplstSQLite3.hs +4/−2

@@ -2,7 +2,7 @@ cabal-version: >= 1.10  name: simplest-sqlite-version: 0.1.0.6+version: 0.1.0.7 stability: Experimental author: YoshikuniJujo <PAF01143@nifty.ne.jp> maintainer: YoshikuniJujo <PAF01143@nifty.ne.jp>

@@ -179,6 +179,8 @@ 	c_sqlite3_bind_null :: Ptr Stmt -> CInt -> IO CInt foreign import ccall unsafe "sqlite3.h sqlite3_bind_int" 	c_sqlite3_bind_int :: Ptr Stmt -> CInt -> CInt -> IO CInt+foreign import ccall unsafe "sqlite3.h sqlite3_bind_int64"+	c_sqlite3_bind_int64 :: Ptr Stmt -> CInt -> Int64 -> IO CInt foreign import ccall unsafe "sqlite3.h sqlite3_bind_double" 	c_sqlite3_bind_double :: Ptr Stmt -> CInt -> CDouble -> IO CInt foreign import ccall unsafe "sqlite3.h sqlite3_bind_text" c_sqlite3_bind_text ::@@ -206,8 +208,8 @@  sqlite3BindInt64 :: Stmt -> Int -> Int64 -> IO () sqlite3BindInt64 (Stmt sm) i n = do-	ret <- c_sqlite3_bind_int sm (fromIntegral i) (fromIntegral n)-	when (ret /= sQLITE_OK) $ sqliteThrow "Cannot bind int" ret+	ret <- c_sqlite3_bind_int64 sm (fromIntegral i) n+	when (ret /= sQLITE_OK) $ sqliteThrow "Cannot bind int64" ret  sqlite3BindString :: Stmt -> Int -> String -> IO () sqlite3BindString (Stmt sm) i s = withCString s $ \cs -> do