[flip the order of dropped slots (TODO: needs regression test)
John Meacham <john@repetae.net>**20110131093428
 Ignore-this: ae618e53f951fb480d2c05ad6a36b395
] hunk ./src/DataConstructors.hs 735
-    | sortKindLike kind, (e,ts) <- fromPi kind = drop (length ts) (conSlots mc)
+    | sortKindLike kind, (e,ts) <- fromPi kind = take (length (conSlots mc) - length ts) (conSlots mc)
+    -- | sortKindLike kind, (e,ts) <- fromPi kind = (conSlots mc)
hunk ./src/DataConstructors.hs 753
-    | sortKindLike kind, (e,ts) <- fromPi kind = drop (length ts) (conSlots mc)
+    | sortKindLike kind, (e,ts) <- fromPi kind = take (length (conSlots mc) - length ts) (conSlots mc)