[treat () the same as tuples when renaming
John Meacham <john@repetae.net>**20100806023948
 Ignore-this: defa66a11f1081a4582a5301cff217e4
] hunk ./src/FrontEnd/HsParser.y 1080
-unit_con_name	      = toName DataConstructor "()"
hunk ./src/FrontEnd/HsParser.y 1082
-unit_con	      = HsCon { {-hsExpSrcSpan = bogusSrcSpan,-} hsExpName = unit_con_name }
+unit_con	      = HsCon { {-hsExpSrcSpan = bogusSrcSpan,-} hsExpName = dc_Unit }
hunk ./src/FrontEnd/HsParser.y 1086
-unit_tycon_name       = unit_con_name
+unit_tycon_name       = tc_Unit
hunk ./src/FrontEnd/Rename.hs 686
-    | nameName tc_Arrow == hsName = return hsName
+    | hsName `elem` [tc_Arrow,dc_Unit,tc_Unit] = return hsName