simplest-sqlite 0.1.0.5 → 0.1.0.6

raw patch · 2 files changed

+11/−1 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• simplest-sqlite.cabal +1/−1
• src/Database/SmplstSQLite3.hs +10/−0

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

@@ -140,6 +140,11 @@ 	column (Stmt sm) i = 		fromIntegral <$> c_sqlite3_column_int sm (fromIntegral i) +instance SQLiteData Int64 where+	bindN = sqlite3BindInt64+	column (Stmt sm) i =+		fromIntegral <$> c_sqlite3_column_int sm (fromIntegral i)+ instance SQLiteData Double where 	bindN = sqlite3BindDouble 	column (Stmt sm) i =@@ -196,6 +201,11 @@  sqlite3BindInt :: Stmt -> Int -> Int -> IO () sqlite3BindInt (Stmt sm) i n = do+	ret <- c_sqlite3_bind_int sm (fromIntegral i) (fromIntegral n)+	when (ret /= sQLITE_OK) $ sqliteThrow "Cannot bind int" ret++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