diff options
| author | Tim Chevalier <chevalier@alum.wellesley.edu> | 2008-09-12 02:38:42 +0000 |
|---|---|---|
| committer | Tim Chevalier <chevalier@alum.wellesley.edu> | 2008-09-12 02:38:42 +0000 |
| commit | 809c7e56d9ee65312211127006475f8545afe4eb (patch) | |
| tree | 9a0314a8d37b89e7fafa50f6658a8cf165c0ae16 /utils | |
| parent | 78c209010058cd7669781de92068b64dd32caaea (diff) | |
| download | haskell-809c7e56d9ee65312211127006475f8545afe4eb.tar.gz | |
ext-core library: Remove some cruft
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ext-core/Language/Core/Merge.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/utils/ext-core/Language/Core/Merge.hs b/utils/ext-core/Language/Core/Merge.hs index b5ffd05cf2..a71146cc33 100644 --- a/utils/ext-core/Language/Core/Merge.hs +++ b/utils/ext-core/Language/Core/Merge.hs @@ -92,11 +92,9 @@ fixupName subst _ oldVar | Just newVar <- lookup oldVar subst = newVar -- We don't alter unqualified names, since we just need to make sure -- everything can go in the Main module. fixupName _ _ vr@(Nothing,_) = vr --- Nor do we alter anything defined in the Main module --- or in the primitive or Bool modules --- (because we basically treat the Bool type as primitive.) +-- Nor do we alter anything defined in the Main module or the primitive module. fixupName _ _ vr@(Just mn, _) | mn == mainMname || mn == wrapperMainMname || - mn == primMname || mn == boolMname = vr + mn == primMname = vr -- For a variable that is defined by only one module in scope, we -- give it a name that is just its unqualified name, without the original -- module and package names. |