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/codeGen | |
| parent | 5d04603b33d2855657745d15f698664a444f6550 (diff) | |
| download | haskell-e16826b12e8a086fa9d75f2835d128c0a8dd532c.tar.gz | |
Cleaned up Maybes.lhs
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index 344e80a497..4531903228 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -46,9 +46,9 @@ import Util import BasicTypes import Outputable import FastString -import Maybes import DynFlags +import Data.Maybe import Control.Monad ------------------------------------------------------------------------ @@ -268,7 +268,7 @@ mkRhsClosure dflags bndr _cc _bi [(DataAlt _, params, _use_mask, (StgApp selectee [{-no args-}]))]) | the_fv == scrutinee -- Scrutinee is the only free variable - && maybeToBool maybe_offset -- Selectee is a component of the tuple + && isJust maybe_offset -- Selectee is a component of the tuple && offset_into_int <= mAX_SPEC_SELECTEE_SIZE dflags -- Offset is small enough = -- NOT TRUE: ASSERT(is_single_constructor) -- The simplifier may have statically determined that the single alternative |