[parse associated types, rename them properly
John Meacham <john@repetae.net>**20061017044513] hunk ./FrontEnd/HsParser.ly 274
->	: 'type' simpletype srcloc '=' type
->			{ HsTypeDecl $3 (fst $2) (snd $2) $5 }
->       | 'data' ctype srcloc deriving
+>       : 'data' ctype srcloc deriving
hunk ./FrontEnd/HsParser.ly 555
->	: infixexp srcloc rhs			{% checkValDef $2 $1 $3 []}
+>	: 'type' simpletype srcloc '=' type
+>			{ HsTypeDecl $3 (fst $2) (snd $2) $5 }
+>	| infixexp srcloc rhs			{% checkValDef $2 $1 $3 []}
hunk ./FrontEnd/Rename.hs 1123
+namesHsDeclTS' toName (HsTypeDecl sl n _ _) = ([(toName TypeConstructor n,sl)],[])