diff options
author | Ben Gamari <ben@smart-cactus.org> | 2021-09-24 15:56:21 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-29 09:44:40 -0400 |
commit | f66eaefd5d4a3e0c0822dd3678e5e55a7d972a0d (patch) | |
tree | 672eb26f7d2aae5f06486521ae9afdc3f2d9d7de /compiler/GHC/HsToCore | |
parent | 2e68d4fa8c2514009db368fbbce213e36bdbcda2 (diff) | |
download | haskell-f66eaefd5d4a3e0c0822dd3678e5e55a7d972a0d.tar.gz |
compiler: occEnvElts -> nonDetOccEnvElts
Diffstat (limited to 'compiler/GHC/HsToCore')
-rw-r--r-- | compiler/GHC/HsToCore/Coverage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Coverage.hs b/compiler/GHC/HsToCore/Coverage.hs index a6b9944292..4320847663 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -1219,7 +1219,7 @@ mkTickish :: BoxLabel -> Bool -> Bool -> SrcSpan -> OccEnv Id -> [String] -> TM CoreTickish mkTickish boxLabel countEntries topOnly pos fvs decl_path = do - let ids = filter (not . isUnliftedType . idType) $ occEnvElts fvs + let ids = filter (not . isUnliftedType . idType) $ nonDetOccEnvElts fvs -- unlifted types cause two problems here: -- * we can't bind them at the GHCi prompt -- (bindLocalsAtBreakpoint already filters them out), |