diff --git a/simplest-sqlite.cabal b/simplest-sqlite.cabal --- a/simplest-sqlite.cabal +++ b/simplest-sqlite.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: simplest-sqlite -version: 0.0.0.3 +version: 0.0.0.4 stability: Experimental author: YoshikuniJujo maintainer: YoshikuniJujo @@ -23,7 +23,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/test_haskell - tag: simplest-sqlite-0.0.0.3 + tag: simplest-sqlite-0.0.0.4 library hs-source-dirs: src diff --git a/src/Database/SmplstSQLite3.hs b/src/Database/SmplstSQLite3.hs --- a/src/Database/SmplstSQLite3.hs +++ b/src/Database/SmplstSQLite3.hs @@ -1,7 +1,11 @@ {-# LANGUAGE TupleSections #-} module Database.SmplstSQLite3 ( - SQLite3, withSQLite3, withPrepared, step, column) where + -- * Functions + withSQLite3, withPrepared, step, SQLite3Data, column, SQLite3DataList, + -- * Types + SQLite3, SQLite3Stmt, ResultCode(..), + ) where import Control.Applicative import Control.Monad @@ -79,7 +83,7 @@ ioError . userError $ "Cannot finalize stmt: error code (" ++ show ret ++ ")" -data ResultCode = SQLiteBusy | SQLiteRow | SQLiteDone deriving Show +data ResultCode = SQLiteBusy | SQLiteRow | SQLiteDone deriving (Show, Eq) foreign import ccall unsafe "sqlite3.h sqlite3_step" c_sqlite3_step :: Ptr SQLite3Stmt -> IO CInt