beam-sqlite 0.3.0.0 → 0.3.1.0

raw patch · 3 files changed

+16/−4 lines, 3 files

Files

• ChangeLog.md +4/−0
• Database/Beam/Sqlite/Connection.hs +11/−3
• beam-sqlite.cabal +1/−1

@@ -1,3 +1,7 @@+# 0.3.1.0++Add `runBeamSqlite` and `runBeamSqliteDebug` functions+ # 0.3.0.0  * Re-introduce backend parameter to `Database` class

@@ -7,10 +7,12 @@   ( Sqlite(..), SqliteM(..)   , sqliteUriSyntax +  , runBeamSqlite, runBeamSqliteDebug+     -- * Emulated @INSERT RETURNING@ support   , SqliteInsertReturning   , insertReturning, runInsertReturningList-  , ) where+  ) where  import           Database.Beam.Backend import           Database.Beam.Backend.SQL@@ -182,9 +184,15 @@         hdl <- open sqliteName         pure (hdl, close hdl)) +runBeamSqliteDebug :: (String -> IO ()) -> Connection -> SqliteM a -> IO a+runBeamSqliteDebug debugStmt conn x = runReaderT (runSqliteM x) (debugStmt, conn)++runBeamSqlite :: Connection -> SqliteM a -> IO a+runBeamSqlite = runBeamSqliteDebug (\_ -> pure ())+ instance MonadBeam SqliteCommandSyntax Sqlite Connection SqliteM where-  withDatabase = withDatabaseDebug (\_ -> pure ())-  withDatabaseDebug printStmt conn x = runReaderT (runSqliteM x) (printStmt, conn)+  withDatabase = runBeamSqlite+  withDatabaseDebug = runBeamSqliteDebug    runNoReturn (SqliteCommandSyntax (SqliteSyntax cmd vals)) =     SqliteM $ do

@@ -1,6 +1,6 @@  name:                beam-sqlite-version:             0.3.0.0+version:             0.3.1.0 synopsis:            Beam driver for SQLite description:         Beam driver for the <https://sqlite.org/ SQLite> embedded database.                      See <http://tathougies.github.io/beam/user-guide/backends/beam-sqlite/ here>