diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-02-23 10:55:38 -0500 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-02-24 04:59:45 -0500 |
commit | d352737e5269f1d862426e88b40d321e15c11b4d (patch) | |
tree | 4fa11717b7f0b7f42de95027ea14118885031dbd | |
parent | 4a9d856d21c67b3328e26aa68a071ec9a824a7bb (diff) | |
download | haskell-wip/tidy-internal.tar.gz |
Force accumulator in GHC.Iface.Tidy.tidy_internalwip/tidy-internal
-rw-r--r-- | compiler/GHC/Iface/Tidy.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Tidy.hs b/compiler/GHC/Iface/Tidy.hs index 14afbeeb14..002bd4a4a9 100644 --- a/compiler/GHC/Iface/Tidy.hs +++ b/compiler/GHC/Iface/Tidy.hs @@ -714,8 +714,8 @@ chooseExternalIds hsc_env mod omit_prags expose_all binds implicit_binds imp_id_ tidy_internal :: [Id] -> UnfoldEnv -> TidyOccEnv -> IO (UnfoldEnv, TidyOccEnv) - tidy_internal [] unfold_env occ_env = return (unfold_env,occ_env) - tidy_internal (id:ids) unfold_env occ_env = do + tidy_internal [] !unfold_env occ_env = return (unfold_env,occ_env) + tidy_internal (id:ids) !unfold_env occ_env = do (occ_env', name') <- tidyTopName mod nc_var Nothing occ_env id let unfold_env' = extendVarEnv unfold_env id (name',False) tidy_internal ids unfold_env' occ_env' |