From 809c7e56d9ee65312211127006475f8545afe4eb Mon Sep 17 00:00:00 2001 From: Tim Chevalier Date: Fri, 12 Sep 2008 02:38:42 +0000 Subject: [PATCH] ext-core library: Remove some cruft --- utils/ext-core/Language/Core/Merge.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/utils/ext-core/Language/Core/Merge.hs b/utils/ext-core/Language/Core/Merge.hs index b5ffd05..a71146c 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. -- 1.7.10.4