hsql-sqlite3 1.8.1 → 1.8.2

raw patch · 3 files changed

+6/−6 lines, 3 filesdep ~hsqlPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hsql

API changes (from Hackage documentation)

Files

• DB/HSQL/SQLite3/Functions.hsc +1/−1
• Database/HSQL/SQLite3.hs +3/−3
• hsql-sqlite3.cabal +2/−2

@@ -1,7 +1,7 @@ module DB.HSQL.SQLite3.Functions where  import Foreign(Ptr,FunPtr)-import Foreign.C(CString,CInt)+import Foreign.C(CString,CInt(..))  #include <fcntl.h> #include <sqlite3.h>

@@ -69,7 +69,7 @@   collectRows (\stmt -> getFieldValue stmt "tbl_name") stmt  -- |-sqlite3Describe :: Connection -> SQLite3 -> String -> IO [FieldDef]+sqlite3Describe :: Connection -> SQLite3 -> String -> IO [ColDef] sqlite3Describe connection sqlite table = do   stmt <- sqlite3Query connection sqlite ("pragma table_info("++table++")")   collectRows getRow stmt@@ -104,7 +104,7 @@   return (name, SqlText, notnull=="0")  -- |-getFieldDefs :: Ptr CString -> Int -> Int -> IO [FieldDef]+getFieldDefs :: Ptr CString -> Int -> Int -> IO [ColDef] getFieldDefs pResult index count     | index >= count = return []     | otherwise = do@@ -120,7 +120,7 @@ -- | getColValue pResult refIndex columns rows colNumber fieldDef f = do   index <- readMVar refIndex-  when (index > rows) (throw SqlNoData)+  when (index > rows) (throw SqlNoMoreData)   pStr <- peekElemOff pResult (columns*index+colNumber)   if pStr == nullPtr     then f fieldDef pStr 0

@@ -1,5 +1,5 @@ Name:            hsql-sqlite3-Version:         1.8.1+Version:         1.8.2 Synopsis:        SQLite3 driver for HSQL. License:         BSD3 License-File:    LICENSE@@ -11,7 +11,7 @@ Exposed-modules:    Database.HSQL.SQLite3   DB.HSQL.SQLite3.Functions-build-depends: 	 base >= 4 && < 5, hsql >= 1.8+build-depends: 	 base >= 4 && < 5, hsql >= 1.8.2 Extensions:      ForeignFunctionInterface, CPP Build-type:      Simple Extra-libraries: sqlite3