packages feed

simplest-sqlite 0.1.0.4 → 0.1.0.5

raw patch · 2 files changed

+9/−2 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

+ Database.SmplstSQLite3: instance Database.SmplstSQLite3.SQLiteData GHC.Types.Bool

Files

simplest-sqlite.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.10  name: simplest-sqlite-version: 0.1.0.4+version: 0.1.0.5 stability: Experimental author: YoshikuniJujo <PAF01143@nifty.ne.jp> maintainer: YoshikuniJujo <PAF01143@nifty.ne.jp>
src/Database/SmplstSQLite3.hs view
@@ -1,4 +1,5 @@-{-# LANGUAGE TupleSections #-}+{-# LANGUAGE LambdaCase, TupleSections #-}+{-# LANGUAGE TypeApplications #-}  module Database.SmplstSQLite3 ( 	-- * Functions@@ -127,6 +128,12 @@ instance SQLiteData () where 	bindN = sqlite3BindNull 	column _ _ = return ()++instance SQLiteData Bool where+	bindN stmt i = \case+		False -> sqlite3BindInt stmt i 0+		True -> sqlite3BindInt stmt i 1+	column stmt i = (/= 0) <$> column @Int stmt i  instance SQLiteData Int where 	bindN = sqlite3BindInt