diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+# 0.3.1.0
+
+Add `runBeamSqlite` and `runBeamSqliteDebug` functions
+
 # 0.3.0.0
 
 * Re-introduce backend parameter to `Database` class
diff --git a/Database/Beam/Sqlite/Connection.hs b/Database/Beam/Sqlite/Connection.hs
--- a/Database/Beam/Sqlite/Connection.hs
+++ b/Database/Beam/Sqlite/Connection.hs
@@ -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
diff --git a/beam-sqlite.cabal b/beam-sqlite.cabal
--- a/beam-sqlite.cabal
+++ b/beam-sqlite.cabal
@@ -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>