simplest-sqlite 0.0.0.3 → 0.0.0.4

raw patch · 2 files changed

+8/−4 lines, 2 files

Files

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

@@ -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 <PAF01143@nifty.ne.jp> maintainer: YoshikuniJujo <PAF01143@nifty.ne.jp>@@ -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

@@ -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