diff options
Diffstat (limited to 'compiler/simplCore/SetLevels.hs')
| -rw-r--r-- | compiler/simplCore/SetLevels.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs index 009f7a818b..aeb4755552 100644 --- a/compiler/simplCore/SetLevels.hs +++ b/compiler/simplCore/SetLevels.hs @@ -82,6 +82,7 @@ import IdInfo import Var import VarSet import UniqSet ( nonDetFoldUniqSet ) +import UniqDSet ( getUniqDSet ) import VarEnv import Literal ( litIsTrivial ) import Demand ( StrictSig, Demand, isStrictDmd, splitStrictSig, increaseStrictSigArity ) @@ -1404,7 +1405,7 @@ isFunction (_, AnnLam b e) | isId b = True isFunction _ = False countFreeIds :: DVarSet -> Int -countFreeIds = nonDetFoldUDFM add 0 +countFreeIds = nonDetFoldUDFM add 0 . getUniqDSet -- It's OK to use nonDetFoldUDFM here because we're just counting things. where add :: Var -> Int -> Int |