diff options
| author | Baldur Blöndal <baldurpet@gmail.com> | 2014-02-13 09:01:03 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 08:45:10 +0000 |
| commit | e16826b12e8a086fa9d75f2835d128c0a8dd532c (patch) | |
| tree | 02b5094675e938a25bcdc3ac9526f54d27e7088a /compiler/stgSyn | |
| parent | 5d04603b33d2855657745d15f698664a444f6550 (diff) | |
| download | haskell-e16826b12e8a086fa9d75f2835d128c0a8dd532c.tar.gz | |
Cleaned up Maybes.lhs
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index 2c4df6955f..0c47042b4d 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -28,7 +28,6 @@ import DataCon import CostCentre ( noCCS ) import VarSet import VarEnv -import Maybes ( maybeToBool ) import Module import Name ( getOccName, isExternalName, nameOccName ) import OccName ( occNameString, occNameFS ) @@ -44,6 +43,7 @@ import ForeignCall import Demand ( isSingleUsed ) import PrimOp ( PrimCall(..) ) +import Data.Maybe (isJust) import Control.Monad (liftM, ap) -- Note [Live vs free] @@ -1106,7 +1106,7 @@ minusFVBinder v fv = fv `delVarEnv` v -- c.f. CoreFVs.delBinderFV elementOfFVInfo :: Id -> FreeVarsInfo -> Bool -elementOfFVInfo id fvs = maybeToBool (lookupVarEnv fvs id) +elementOfFVInfo id fvs = isJust (lookupVarEnv fvs id) lookupFVInfo :: FreeVarsInfo -> Id -> StgBinderInfo -- Find how the given Id is used. |