diff --git a/DB/HSQL/SQLite3/Functions.hsc b/DB/HSQL/SQLite3/Functions.hsc
--- a/DB/HSQL/SQLite3/Functions.hsc
+++ b/DB/HSQL/SQLite3/Functions.hsc
@@ -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>
diff --git a/Database/HSQL/SQLite3.hs b/Database/HSQL/SQLite3.hs
--- a/Database/HSQL/SQLite3.hs
+++ b/Database/HSQL/SQLite3.hs
@@ -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
diff --git a/hsql-sqlite3.cabal b/hsql-sqlite3.cabal
--- a/hsql-sqlite3.cabal
+++ b/hsql-sqlite3.cabal
@@ -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