persistent-mysql 2.13.0.4 → 2.13.1.0

raw patch · 3 files changed

+14/−5 lines, 3 filesdep ~persistent

Dependency ranges changed: persistent

Files

• ChangeLog.md +7/−0
• Database/Persist/MySQL.hs +5/−3
• persistent-mysql.cabal +2/−2

@@ -1,5 +1,12 @@ # Changelog for persistent-mysql +## 2.13.1.0++* [#1341](https://github.com/yesodweb/persistent/pull/1341)+    * Add `SqlBackendHooks` to allow for instrumentation of queries.+* [#1327](https://github.com/yesodweb/persistent/pull/1327)+    * Update backend to support new `StatementCache` interface+ ## 2.13.0.4  * No longer errors on `json` columns. [#1333](https://github.com/yesodweb/persistent/pull/1333)

@@ -45,6 +45,7 @@ import Control.Monad.Trans.Except (ExceptT, runExceptT) import Control.Monad.Trans.Reader (ReaderT, runReaderT) import Control.Monad.Trans.Writer (runWriterT)+import Data.IORef (newIORef) import Data.Proxy (Proxy(..))  import Data.Acquire (Acquire, mkAcquire, with)@@ -57,12 +58,12 @@ import Data.Either (partitionEithers) import Data.Fixed (Pico) import Data.Function (on)-import Data.IORef import Data.Int (Int64) import Data.List (find, groupBy, intercalate, sort) import qualified Data.List.NonEmpty as NEL import qualified Data.Map as Map import Data.Maybe (fromMaybe, listToMaybe, mapMaybe)+import qualified Data.Map as Map import Data.Monoid ((<>)) import qualified Data.Monoid as Monoid import Data.Pool (Pool)@@ -77,6 +78,7 @@ import Database.Persist.Sql.Types.Internal (makeIsolationLevelStatement) import qualified Database.Persist.Sql.Util as Util import Database.Persist.SqlBackend+import Database.Persist.SqlBackend.StatementCache  import qualified Database.MySQL.Base as MySQLBase import qualified Database.MySQL.Base.Types as MySQLBase@@ -131,7 +133,7 @@ openMySQLConn ci logFunc = do     conn <- MySQL.connect ci     MySQLBase.autocommit conn False -- disable autocommit!-    smap <- newIORef $ Map.empty+    smap <- newIORef mempty     let         backend =             setConnPutManySql putManySql $@@ -1297,7 +1299,7 @@ -- the actual database isn't already present in the system. mockMigration :: Migration -> IO () mockMigration mig = do-    smap <- newIORef $ Map.empty+    smap <- newIORef mempty     let sqlbackend =             mkSqlBackend MkSqlBackendArgs                 { connPrepare = \_ -> do

@@ -1,5 +1,5 @@ name:            persistent-mysql-version:         2.13.0.4+version:         2.13.1.0 license:         MIT license-file:    LICENSE author:          Felipe Lessa <felipe.lessa@gmail.com>, Michael Snoyman@@ -28,7 +28,7 @@  library     build-depends:   base             >= 4.9      && < 5-                   , persistent       >= 2.13   && < 3+                   , persistent       >= 2.13.3   && < 3                    , aeson            >= 1.0                    , blaze-builder                    , bytestring       >= 0.10.8