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