diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## 0.1.0.3 -- 2022-07-31
+
+* Support GHC 9.2
+
 ## 0.1.0.2 -- 2022-02-04
 
 * Support `hasql-1.5`
diff --git a/hasql-interpolate.cabal b/hasql-interpolate.cabal
--- a/hasql-interpolate.cabal
+++ b/hasql-interpolate.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               hasql-interpolate
-version:            0.1.0.2
+version:            0.1.0.3
 
 author: Travis Staton <hello@travisstaton.com>
 category: Hasql, Database, PostgreSQL
diff --git a/lib/Hasql/Interpolate/Internal/TH.hs b/lib/Hasql/Interpolate/Internal/TH.hs
--- a/lib/Hasql/Interpolate/Internal/TH.hs
+++ b/lib/Hasql/Interpolate/Internal/TH.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE BlockArguments #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NamedFieldPuns #-}
@@ -302,7 +303,7 @@
   let spliceDecs =
         map
           ( \SpliceBind {sbBuilder, sbParamEncoder, sbExp} ->
-              ValD (ConP 'Sql (map VarP [nameArr ! sbBuilder, nameArr ! sbParamEncoder])) (NormalB sbExp) []
+              ValD (conP_compat 'Sql (map VarP [nameArr ! sbBuilder, nameArr ! sbParamEncoder])) (NormalB sbExp) []
           )
           spliceBindings
   sqlBuilderExp <-
@@ -324,3 +325,11 @@
   pure case spliceDecs of
     [] -> body
     _ -> LetE spliceDecs body
+
+-- In template-haskell-2.18.0.0, the ConP constructor grew a new [Type] field for matching with type applications.
+conP_compat :: Name -> [Pat] -> Pat
+#if MIN_VERSION_template_haskell(2,18,0)
+conP_compat name fields = ConP name [] fields
+#else
+conP_compat name fields = ConP name fields
+#endif