From 28274f6a2e2194ef4a3f526105e62644a15a719b Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 3 Oct 2001 09:20:20 +0000 Subject: [PATCH] [project @ 2001-10-03 09:20:20 by simonmar] minor wibble: use Maybe.isJust rather than maybeToBool --- ghc/compiler/coreSyn/CoreTidy.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4