diff --git a/Database/Persist/Sqlite.hs b/Database/Persist/Sqlite.hs
--- a/Database/Persist/Sqlite.hs
+++ b/Database/Persist/Sqlite.hs
@@ -11,6 +11,7 @@
     , module Database.Persist
     , module Database.Persist.GenericSql
     , SqliteConf (..)
+    , runSqlite
     ) where
 
 import Database.Persist hiding (Entity (..))
@@ -22,6 +23,7 @@
 import qualified Database.Sqlite as Sqlite
 
 import Control.Monad.IO.Class (MonadIO (..))
+import Control.Monad.Logger (NoLoggingT, runNoLoggingT)
 import Data.List (intercalate)
 import Data.IORef
 import qualified Data.Map as Map
@@ -71,6 +73,20 @@
         _ <- execute stmt []
         reset stmt
     ignoreExceptions = E.handle (\(_ :: E.SomeException) -> return ())
+
+-- | A convenience helper which creates a new database connection and runs the
+-- given block, handling @MonadResource@ and @MonadLogger@ requirements. Note
+-- that all log messages are discarded.
+--
+-- Since 1.1.4
+runSqlite :: (MonadBaseControl IO m, MonadIO m)
+          => Text -- ^ connection string
+          -> SqlPersist (NoLoggingT (ResourceT m)) a -- ^ database action
+          -> m a
+runSqlite connstr = runResourceT
+                  . runNoLoggingT
+                  . withSqliteConn connstr
+                  . runSqlConn
 
 prepare' :: Sqlite.Connection -> Text -> IO Statement
 prepare' conn sql = do
diff --git a/persistent-sqlite.cabal b/persistent-sqlite.cabal
--- a/persistent-sqlite.cabal
+++ b/persistent-sqlite.cabal
@@ -1,5 +1,5 @@
 name:            persistent-sqlite
-version:         1.1.3.1
+version:         1.1.4
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -26,6 +26,7 @@
                    , text                    >= 0.7
                    , aeson                   >= 0.5
                    , conduit                 >= 0.5.3
+                   , monad-logger            >= 0.2.4
     exposed-modules: Database.Sqlite
                      Database.Persist.Sqlite
     ghc-options:     -Wall