@@ -302,4 +302,3 @@ makeArgComplements adtDict numArgs index argPattern =
302 replicate index P.Anything ++ pat : replicate (numArgs - index - 1) P.Anything
302 replicate index P.Anything ++ pat : replicate (numArgs - index - 1) P.Anything
304 map (P.Data ctor . paddedArgs) complementList
304 map (P.Data ctor . paddedArgs) complementList