[Haskell-cafe] Data.Map: Values to keys and keys to values

Hi, Data.Map has many great functions, yet I could not find the one that allows from one map create another map where keys are values and values are keys of the first one. Something like: transMap:: (Ord k, Ord a) => Map k a -> Map a k Does such function exist? Thanks!