diff --git a/library/THLego/Lambdas.hs b/library/THLego/Lambdas.hs
--- a/library/THLego/Lambdas.hs
+++ b/library/THLego/Lambdas.hs
@@ -72,7 +72,9 @@
       ConP conName pats
       where
         pats =
-          fmap VarP memberNames
+          (memberNames & take index & fmap VarP) <>
+          [WildP] <>
+          (memberNames & drop (succ index) & fmap VarP)
     valP =
       VarP memberName
     exp =
diff --git a/th-lego.cabal b/th-lego.cabal
--- a/th-lego.cabal
+++ b/th-lego.cabal
@@ -1,5 +1,5 @@
 name: th-lego
-version: 0.2
+version: 0.2.0.1
 synopsis: Template Haskell construction utilities
 description:
   A collection of templates for the typical patterns appearing