diff --git a/lens-family-th.cabal b/lens-family-th.cabal
--- a/lens-family-th.cabal
+++ b/lens-family-th.cabal
@@ -1,5 +1,5 @@
 name:                lens-family-th
-version:             0.5.2.0
+version:             0.5.2.1
 synopsis:            Generate lens-family style lenses
 
 description:         (see README.md)
@@ -26,7 +26,7 @@
                    , Lens.Family2.TH
                    , Lens.Family.THCore
   build-depends:     base >= 4.9 && < 5
-                   , template-haskell >= 2.11 && < 2.18
+                   , template-haskell >= 2.11 && < 2.19
 
 test-suite lens-family-th-test
   default-language:  Haskell2010
diff --git a/src/Lens/Family/THCore.hs b/src/Lens/Family/THCore.hs
--- a/src/Lens/Family/THCore.hs
+++ b/src/Lens/Family/THCore.hs
@@ -158,7 +158,11 @@
 
 deconstructReconstruct :: Con -> String -> (Pat, Exp)
 deconstructReconstruct c nameBase = (pat, expr) where
-  pat = ConP conN (map VarP argNames)
+#if MIN_VERSION_template_haskell(2,18,0)
+  pat = ConP conN [] (map VarP argNames)
+#else
+  pat = ConP conN    (map VarP argNames)
+#endif
   expr = foldl AppE (ConE conN) (map VarE argNames)
   (conN, nArgs) = getConInfo c
   argNames = mkArgNames nArgs nameBase