Use IntMap.keysSet.

(Thanks to Neil for spotting this!)
2008-03-26 23:19:37 +00:00 · 2008-03-26 23:19:37 +00:00 · d2bcd0cde5
commit d2bcd0cde5
parent 3283b7db41
1 changed files with 1 additions and 1 deletions
--- a/common/GenericUtils.hs
+++ b/common/GenericUtils.hs
@ -72,7 +72,7 @@ type ContainsMap = IntMap IntSet
 -- At the moment this only knows about types reachable from the AST.
 contains :: ContainsMap
 contains = IntMap.fromList [(typeKey t,
-                             IntSet.fromList $ IntMap.keys $ containsTypes t)
+                             IntMap.keysSet $ containsTypes t)
                            | DataBox t <- IntMap.elems allTypes]
  where
    allTypes = containsTypes (undefined :: A.AST)