Commit 4e70004b authored by simonmar's avatar simonmar
Browse files

[project @ 2003-04-11 12:51:45 by simonmar]

Add an ASSERT to confirm an invariant: all Ids defined in this module
should be LocalIds until the CoreTidy phase.
parent 194dd633
...@@ -470,7 +470,9 @@ tidyTopBinder mod ext_ids caf_info rec_tidy_env rhs tidy_rhs ...@@ -470,7 +470,9 @@ tidyTopBinder mod ext_ids caf_info rec_tidy_env rhs tidy_rhs
-- The rhs is already tidied -- The rhs is already tidied
= ((orig_env', occ_env', subst_env'), id') = ASSERT(isLocalId id) -- "all Ids defined in this module are local
-- until the CoreTidy phase" --GHC comentary
((orig_env', occ_env', subst_env'), id')
where where
(orig_env', occ_env', name') = tidyTopName mod ns2 occ_env2 (orig_env', occ_env', name') = tidyTopName mod ns2 occ_env2
is_external is_external
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment