[commit: ghc] ghc-7.2: More Lexer.x tidy-ups (d37083f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/d37083fbb72b586ae7a497d238e4e464065e9f95

>---------------------------------------------------------------

commit d37083fbb72b586ae7a497d238e4e464065e9f95
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Jul 14 18:17:36 2011 +0100

    More Lexer.x tidy-ups

>---------------------------------------------------------------

 compiler/parser/Lexer.x |   12 ++++--------
 1 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 99b91da..c043f8b 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1722,17 +1722,13 @@ setAlrExpectingOCurly :: Maybe ALRLayout -> P ()
 setAlrExpectingOCurly b = P $ \s -> POk (s {alr_expecting_ocurly = b}) ()
 
 -- for reasons of efficiency, flags indicating language extensions (eg,
--- -fglasgow-exts or -XParallelArrays) are represented by a bitmap stored in an unboxed
--- integer
-
--- The "genericsBit" is now unused, available for others
--- genericsBit :: Int
--- genericsBit = 0 -- {|, |} and "generic"
+-- -fglasgow-exts or -XParallelArrays) are represented by a bitmap
+-- stored in an unboxed Int
 
 ffiBit :: Int
-ffiBit= 1
+ffiBit= 0
 interruptibleFfiBit :: Int
-interruptibleFfiBit = 2
+interruptibleFfiBit = 1
 parrBit :: Int
 parrBit = 3
 arrowsBit :: Int