diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -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)
diff --git a/persistent-qq.cabal b/persistent-qq.cabal
--- a/persistent-qq.cabal
+++ b/persistent-qq.cabal
@@ -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
diff --git a/test/PersistentTestModels.hs b/test/PersistentTestModels.hs
--- a/test/PersistentTestModels.hs
+++ b/test/PersistentTestModels.hs
@@ -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))