persistent-qq 2.12.0.0 → 2.12.0.1

raw patch · 3 files changed

+18/−10 lines, 3 filesdep ~persistentPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: persistent

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• persistent-qq.cabal +2/−2
• test/PersistentTestModels.hs +11/−8

@@ -1,5 +1,10 @@ # Changelog for persistent-qq +## 2.12.0.1++* Support GHC 9. [#1265](https://github.com/yesodweb/persistent/pull/1265)+* Clarify lower bounds on `persistent` for the test suite. [#1274](https://github.com/yesodweb/persistent/pull/1274)+ ## 2.12.0.0  * Decomposed `HaskellName` into `ConstraintNameHS`, `EntityNameHS`, `FieldNameHS`. Decomposed `DBName` into `ConstraintNameDB`, `EntityNameDB`, `FieldNameDB` respectively. [#1174](https://github.com/yesodweb/persistent/pull/1174)

@@ -1,6 +1,6 @@ cabal-version: 1.12 name:           persistent-qq-version:        2.12.0.0+version:        2.12.0.1 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.10+    , persistent >=2.13     , persistent-qq     , persistent-sqlite     , resourcet

@@ -1,6 +1,7 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE FlexibleContexts #-}-{-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-}@@ -9,19 +10,21 @@ {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeFamilies #-}-{-# LANGUAGE UndecidableInstances #-} -- FIXME-{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE UndecidableInstances #-}+ module PersistentTestModels where  import Control.Monad.Reader import Data.Aeson-import Data.Text (Text) import Data.Proxy+import Data.Text (Text) +import Data.Foldable (toList)+import qualified Data.List.NonEmpty as NEL import Database.Persist.Sql import Database.Persist.TH-import PersistTestPetType import PersistTestPetCollarType+import PersistTestPetType  share     [ mkPersist sqlSettings { mpsGeneric = True }@@ -144,7 +147,7 @@      entityDef = revFields . entityDef . unRfoProxy       where-        revFields ed = ed { entityFields = reverse (entityFields ed) }+        revFields = overEntityFields reverse         unRfoProxy :: proxy (ReverseFieldOrder a) -> Proxy a         unRfoProxy _ = Proxy @@ -154,12 +157,12 @@     fromPersistValues = fmap RFO . fromPersistValues . reverse      newtype Unique      (ReverseFieldOrder a)   = URFO  {unURFO  :: Unique      a  }-    persistUniqueToFieldNames = reverse . persistUniqueToFieldNames . unURFO+    persistUniqueToFieldNames = NEL.reverse . persistUniqueToFieldNames . unURFO     persistUniqueToValues = reverse . persistUniqueToValues . unURFO     persistUniqueKeys = map URFO . reverse . persistUniqueKeys . unRFO      persistIdField = error "ReverseFieldOrder.persistIdField"-    fieldLens = error "ReverseFieldOrder.fieldLens"+    fieldLens x = error "ReverseFieldOrder.fieldLens"  cleanDB     :: (MonadIO m, PersistQuery backend, PersistStoreWrite (BaseBackend backend))