persistent-qq 2.12.0.2 → 2.12.0.3

raw patch · 4 files changed

+12/−4 lines, 4 filesdep ~persistentPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: persistent

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• persistent-qq.cabal +2/−2
• test/PersistentTestModels.hs +2/−0
• test/Spec.hs +4/−2

@@ -1,5 +1,9 @@ # Changelog for persistent-qq +## 2.12.0.3++* Require `persistent-2.14` in tests+ ## 2.12.0.2  * Support aeson-2 in the test suite [#1351](https://github.com/yesodweb/persistent/pull/1351/)

@@ -1,6 +1,6 @@ cabal-version: 1.12 name:           persistent-qq-version:        2.12.0.2+version:        2.12.0.3 synopsis:       Provides a quasi-quoter for raw SQL for persistent description:    Please see README and API docs at <http://www.stackage.org/package/persistent>. category:       Database, Yesod@@ -55,7 +55,7 @@     , hspec     , monad-logger     , mtl-    , persistent >=2.13+    , persistent >=2.14     , persistent-qq     , persistent-sqlite     , resourcet

@@ -12,6 +12,8 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE UndecidableInstances #-} +{-# OPTIONS_GHC -ddump-splices #-}+ module PersistentTestModels where  import Control.Monad.Reader

@@ -13,6 +13,7 @@ import Test.Hspec import Test.HUnit ((@?=)) +import Database.Persist.Class.PersistEntity import Database.Persist.Sql import Database.Persist.Sql.Raw.QQ import Database.Persist.Sqlite@@ -57,6 +58,7 @@               => PersistEntity val               => PersistEntityBackend val ~ BaseBackend backend               => MonadIO m+              => SafeToInsert val               => val               -> ReaderT backend m (Key val, val)             insert' v = insert v >>= \k -> return (k, v)@@ -111,7 +113,7 @@         liftIO $ ret2 @?= [Entity (RFOKey $ unPersonKey p1k) (RFO p1)]      it "sqlQQ/OUTER JOIN" $ db $ do-        let insert' :: (PersistStore backend, PersistEntity val, PersistEntityBackend val ~ BaseBackend backend, MonadIO m)+        let insert' :: (PersistStore backend, PersistEntity val, PersistEntityBackend val ~ BaseBackend backend, MonadIO m, SafeToInsert val)                     => val -> ReaderT backend m (Key val, val)             insert' v = insert v >>= \k -> return (k, v)         (p1k, p1) <- insert' $ Person "Mathias"   23 Nothing@@ -130,7 +132,7 @@                          , (Entity p2k p2, Nothing) ]      it "sqlQQ/values syntax" $ db $ do-        let insert' :: (PersistStore backend, PersistEntity val, PersistEntityBackend val ~ BaseBackend backend, MonadIO m)+        let insert' :: (PersistStore backend, PersistEntity val, PersistEntityBackend val ~ BaseBackend backend, MonadIO m, SafeToInsert val)                     => val -> ReaderT backend m (Key val, val)             insert' v = insert v >>= \k -> return (k, v)         (p1k, p1) <- insert' $ Person "Mathias"   23 (Just "red")