move typeToName, nameToType to Language.Haskell.TH.Tools