diff --git a/Language/Haskell/TH/ExpandSyns.hs b/Language/Haskell/TH/ExpandSyns.hs
--- a/Language/Haskell/TH/ExpandSyns.hs
+++ b/Language/Haskell/TH/ExpandSyns.hs
@@ -159,6 +159,10 @@
     go (KiSigD {}) = return ()
 #endif
 
+#if MIN_VERSION_template_haskell(2,19,0)
+    go (DefaultD {}) = return ()
+#endif
+
 warnTypeFamiliesInType :: Type -> Q ()
 warnTypeFamiliesInType = go
   where
@@ -215,6 +219,16 @@
 #endif
 #if MIN_VERSION_template_haskell(2,17,0)
     go MulArrowT{} = return ()
+#endif
+#if MIN_VERSION_template_haskell(2,19,0)
+    go (PromotedInfixT t1 n t2) = do
+      warnIfNameIsTypeFamily n
+      go t1
+      go t2
+    go (PromotedUInfixT t1 n t2) = do
+      warnIfNameIsTypeFamily n
+      go t1
+      go t2
 #endif
 
     go_kind :: Kind -> Q ()
diff --git a/changelog.markdown b/changelog.markdown
--- a/changelog.markdown
+++ b/changelog.markdown
@@ -1,3 +1,8 @@
+## 0.4.10.0 [2022.07.23]
+
+* Support `DefaultD`, `PromotedInfixT`, and `PromotedUInfixT` when building
+  with `template-haskell-2.19.0.0` (GHC 9.4) or later.
+
 ## 0.4.9.0 [2021.08.30]
 
 * Consolidate the type-synonym expansion functionality with `th-abstraction`,
diff --git a/th-expand-syns.cabal b/th-expand-syns.cabal
--- a/th-expand-syns.cabal
+++ b/th-expand-syns.cabal
@@ -1,5 +1,5 @@
 name:                th-expand-syns
-version:             0.4.9.0
+version:             0.4.10.0
 synopsis:            Expands type synonyms in Template Haskell ASTs
 description:         Expands type synonyms in Template Haskell ASTs.
                      .
@@ -29,8 +29,8 @@
     GHC == 8.6.5
     GHC == 8.8.4
     GHC == 8.10.7
-    GHC == 9.0.1
-    GHC == 9.2.*
+    GHC == 9.0.2
+    GHC == 9.2.2
 
 source-repository head
  type: git
@@ -41,7 +41,7 @@
                        , containers
                        , syb
                        , th-abstraction   >= 0.4.3 && < 0.5
-                       , template-haskell >= 2.5   && < 2.19
+                       , template-haskell >= 2.5   && < 2.20
     ghc-options:         -Wall
     exposed-modules:     Language.Haskell.TH.ExpandSyns
     other-modules:       Language.Haskell.TH.ExpandSyns.SemigroupCompat