persistent-sqlite 1.1.3.1 → 1.1.4

raw patch · 2 files changed

+18/−1 lines, 2 filesdep +monad-logger

Dependencies added: monad-logger

Files

• Database/Persist/Sqlite.hs +16/−0
• persistent-sqlite.cabal +2/−1

@@ -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

@@ -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