[fix some warnings
John Meacham <john@repetae.net>**20090221061824
 Ignore-this: 4c0b32d3e061b709d9fdbd5b9bef5dcb
] hunk ./FrontEnd/TypeSyns.hs 245
+    rt HsTyExpKind {} _subTable = error "cannot rename HsTyExpKind TypeSyns"
hunk ./FrontEnd/TypeSyns.hs 338
-renameHsGuardedRhss :: HsRhs -> SubTable -> ScopeSM (HsRhs)
-renameHsGuardedRhss (HsUnGuardedRhs hsExp) subTable = do
-      hsExp' <- renameHsExp hsExp subTable
-      return (HsUnGuardedRhs hsExp')
-renameHsGuardedRhss (HsGuardedRhss hsGuardedAltList) subTable = do
-      hsGuardedAltList' <- renameHsGuardedRhsList hsGuardedAltList subTable
-      return (HsGuardedRhss hsGuardedAltList')
hunk ./FrontEnd/TypeSyns.hs 543
+getHsNamesFromHsType ty = execWriter $ traverseHsType_ f ty where
+    f t = tell $ getHsNamesFromHsType t
+