From: simonmar <unknown>
Date: Wed, 3 Oct 2001 09:20:20 +0000 (+0000)
Subject: [project @ 2001-10-03 09:20:20 by simonmar]
X-Git-Tag: Approximately_9120_patches~871
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=28274f6a2e2194ef4a3f526105e62644a15a719b;p=ghc-hetmet.git

[project @ 2001-10-03 09:20:20 by simonmar]
minor wibble: use Maybe.isJust rather than maybeToBool
---

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index f400051..5ba745a 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -44,14 +44,14 @@ import HscTypes		( PersistentCompilerState( pcs_PRS ),
 			  ModDetails(..), TyThing(..)
 			)
 import FiniteMap	( lookupFM, addToFM )
-import Maybes		( maybeToBool, orElse )
+import Maybes		( orElse )
 import ErrUtils		( showPass, dumpIfSet_core )
 import SrcLoc		( noSrcLoc )
 import UniqFM		( mapUFM )
 import UniqSupply	( splitUniqSupply, uniqFromSupply )
 import List		( partition )
 import Util		( mapAccumL )
-import Maybe		( isNothing, fromJust )
+import Maybe		( isJust, fromJust, isNothing )
 import Outputable
 \end{code}
 
@@ -462,7 +462,7 @@ tidyTopBinder mod ext_ids cg_info_env tidy_env rhs
     subst_env' = extendVarEnv subst_env2 id id'
 
     maybe_external = lookupVarEnv ext_ids id
-    is_external    = maybeToBool maybe_external
+    is_external    = isJust maybe_external
 
     -- Expose an unfolding if ext_ids tells us to
     show_unfold = maybe_external `orElse` False