diff --git a/hasql-th.cabal b/hasql-th.cabal
--- a/hasql-th.cabal
+++ b/hasql-th.cabal
@@ -1,5 +1,5 @@
 name: hasql-th
-version: 0.4.0.15
+version: 0.4.0.16
 category: Hasql, Database, PostgreSQL, Template Haskell
 synopsis: Template Haskell utilities for Hasql
 description:
@@ -47,7 +47,7 @@
     hasql >=1.4 && <1.6,
     postgresql-syntax >=0.4.1 && <0.5,
     template-haskell >=2.8 && <3,
-    template-haskell-compat-v0208 >=0.1.7 && <2,
+    template-haskell-compat-v0208 >=0.1.9 && <2,
     text >=1 && <3,
     uuid >=1.3 && <2,
     vector >=0.12 && <0.14
diff --git a/library/Hasql/TH/Construction/Exp.hs b/library/Hasql/TH/Construction/Exp.hs
--- a/library/Hasql/TH/Construction/Exp.hs
+++ b/library/Hasql/TH/Construction/Exp.hs
@@ -112,7 +112,7 @@
       _initVarName = mkName "init"
       _extractVarName = mkName "extract"
    in LamE
-        [ Compat.conp
+        [ Compat.conP
             'Fold
             [ VarP _stepVarName,
               VarP _initVarName,