[clean up warnings
John Meacham <john@repetae.net>**20080324014415] hunk ./DerivingDrift/StandardRules.hs 50
-		| c <- zip (body d) [1 ..]
-		, c' <- zip (body d) [1 ..]]
+		| c <- zip (body d) [1 :: Int ..]
+		, c' <- zip (body d) [1 :: Int ..]]
hunk ./DerivingDrift/StandardRules.hs 142
-	listComp x (l:ll) = brackets . fsep . sepWith comma $
+	listComp x ~(l:ll) = brackets . fsep . sepWith comma $
hunk ./DerivingDrift/StandardRules.hs 171
-fromEnumFn (D{body=body}) = map f (zip body [0 ..])
+fromEnumFn (D{body=body}) = map f (zip body [0:: Int ..])
hunk ./DerivingDrift/StandardRules.hs 177
-toEnumFn (D{body=body}) = map f (zip body [0 ..])
+toEnumFn (D{body=body}) = map f (zip body [0 :: Int ..])