persistent 2.1.1.1 → 2.1.1.2

raw patch · 2 files changed

+12/−3 lines, 2 files

Files

• Database/Persist/Sql/Raw.hs +11/−2
• persistent.cabal +1/−1

@@ -46,10 +46,19 @@         stmt <- mkAcquire make stmtReset         stmtQuery stmt vals -rawExecute :: MonadIO m => Text -> [PersistValue] -> ReaderT SqlBackend m ()+-- | Execute a raw SQL statement+rawExecute :: MonadIO m+           => Text            -- ^ SQL statement, possibly with placeholders.+           -> [PersistValue]  -- ^ Values to fill the placeholders.+           -> ReaderT SqlBackend m () rawExecute x y = liftM (const ()) $ rawExecuteCount x y -rawExecuteCount :: MonadIO m => Text -> [PersistValue] -> ReaderT SqlBackend m Int64+-- | Execute a raw SQL statement and return the number of+-- rows it has modified.+rawExecuteCount :: MonadIO m+                => Text            -- ^ SQL statement, possibly with placeholders.+                -> [PersistValue]  -- ^ Values to fill the placeholders.+                -> ReaderT SqlBackend m Int64 rawExecuteCount sql vals = do     conn <- ask     runLoggingT ($logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals)

@@ -1,5 +1,5 @@ name:            persistent-version:         2.1.1.1+version:         2.1.1.2 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>