Support building with template-haskell-2.22.*

haskell-compat · Mar 14, 2024 · 181fd83 · 181fd83
1 parent 0ba9530
commit 181fd83
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,6 @@
+### next [????.??.??]
+* Support building with `template-haskell-2.22.*` (GHC 9.10).
+
 ### 0.1.4 [2022.07.23]
 * Backport the `getPackageRoot` and `makeRelativeToProject` functions
   introduced in `template-haskell-2.19.0.0` (GHC 9.4).

diff --git a/src/Language/Haskell/TH/Syntax/Compat.hs b/src/Language/Haskell/TH/Syntax/Compat.hs
@@ -756,7 +756,9 @@ joinCode = flip bindCode id
 -- differ between @template-haskell@ versions as well.
 --
 -- Levity-polymorphic since /template-haskell-2.16.0.0/.
-# if MIN_VERSION_template_haskell(2,17,0)
+# if MIN_VERSION_template_haskell(2,22,0)
+type Splice  = Code :: ((* -> *) -> forall r. TYPE r -> *)
+# elif MIN_VERSION_template_haskell(2,17,0)
 type Splice  = Code :: (forall r. (* -> *) -> TYPE r -> *)
 # elif MIN_VERSION_template_haskell(2,16,0)
 type Splice m (a :: TYPE r) = m (Syntax.TExp a)