selda-sqlite 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+10/−9 lines, 2 filesdep ~selda

Dependency ranges changed: selda

Files

• selda-sqlite.cabal +5/−5
• src/Database/Selda/SQLite.hs +5/−4

@@ -1,5 +1,5 @@ name:                selda-sqlite-version:             0.1.0.0+version:             0.1.1.0 synopsis:            SQLite backend for the Selda database EDSL. description:         SQLite backend for the Selda database EDSL. homepage:            https://github.com/valderman/selda@@ -22,10 +22,10 @@     GADTs     CPP   build-depends:-      base          >=4.8 && <5-    , exceptions    >=0.8 && <0.9-    , selda         >=0.1 && <0.2-    , text          >=1.0 && <1.3+      base          >=4.8   && <5+    , exceptions    >=0.8   && <0.9+    , selda         >=0.1.1 && <0.2+    , text          >=1.0   && <1.3   if !flag(haste)     build-depends:       direct-sqlite >=2.2 && <2.4

@@ -1,4 +1,4 @@-{-# LANGUAGE GADTs, CPP #-}+{-# LANGUAGE GADTs, CPP, OverloadedStrings #-} -- | SQLite3 backend for Selda. module Database.Selda.SQLite (withSQLite) where import Database.Selda@@ -23,9 +23,10 @@  sqliteBackend :: MVar () -> Database -> SeldaBackend sqliteBackend lock db = SeldaBackend-  { runStmt       = \q ps -> snd <$> sqliteQueryRunner lock db q ps-  , runStmtWithPK = \q ps -> fst <$> sqliteQueryRunner lock db q ps-  , customColType = \_ _ -> Nothing+  { runStmt        = \q ps -> snd <$> sqliteQueryRunner lock db q ps+  , runStmtWithPK  = \q ps -> fst <$> sqliteQueryRunner lock db q ps+  , customColType  = \_ _ -> Nothing+  , defaultKeyword = "NULL"   }  sqliteQueryRunner :: MVar () -> Database -> QueryRunner (Int, (Int, [[SqlValue]]))