suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use IntMap.keysSet.

Browse Source 
(Thanks to Neil for spotting this!)
This commit is contained in:
Adam Sampson 2008-03-26 23:19:37 +00:00
parent 3283b7db41
commit d2bcd0cde5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/GenericUtils.hs
View File

@ -72,7 +72,7 @@ type ContainsMap = IntMap IntSet
-- At the moment this only knows about types reachable from the AST. -- At the moment this only knows about types reachable from the AST.
contains :: ContainsMap contains :: ContainsMap
contains = IntMap.fromList [(typeKey t, contains = IntMap.fromList [(typeKey t,
IntSet.fromList $ IntMap.keys $ containsTypes t) IntMap.keysSet $ containsTypes t)
| DataBox t <- IntMap.elems allTypes] | DataBox t <- IntMap.elems allTypes]
where where
allTypes = containsTypes (undefined :: A.AST) allTypes = containsTypes (undefined :: A.AST)