someFunction :: TypeRep -> Int

Now that TypeRep share their keys using RTS internal allocation, can we get a function in Data.Typeable (or even GHC.Exts) that retrieves the Int key? Currently my job code (OpenAFP) and Pugs both uses "show :: TypeRep -> String" as the key for Map, but I think it'd be much, much faster if either TypeRep supports Ord natively, or (preferably) that we can get a Int out of it.

Thanks! Audrey