fix ==>>#merge bug

https://github.com/haskell/containers/blob/ghc-7.2.1-release/Data/Map.hs#L2147