minor wibble: use Maybe.isJust rather than maybeToBool
ModDetails(..), TyThing(..)
)
import FiniteMap ( lookupFM, addToFM )
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 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}
import Outputable
\end{code}
subst_env' = extendVarEnv subst_env2 id id'
maybe_external = lookupVarEnv ext_ids id
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
-- Expose an unfolding if ext_ids tells us to
show_unfold = maybe_external `orElse` False