[Haskell] performance tuning Data.FiniteMap