[GHC] #10582: Tiny bug in lexer around lexing banana brackets

[GHC]

#10582: Tiny bug in lexer around lexing banana brackets
-------------------------------------+-------------------------------------
              Reporter:  goldfire    |             Owner:  goldfire
                  Type:  bug         |            Status:  new
              Priority:  low         |         Milestone:  7.10.3
             Component:  Compiler    |           Version:  7.10.1
              Keywords:              |  Operating System:  Unknown/Multiple
          Architecture:              |   Type of failure:  None/Unknown
  Unknown/Multiple                   |        Blocked By:
             Test Case:              |   Related Tickets:
              Blocking:              |
Differential Revisions:              |
-------------------------------------+-------------------------------------
 If I say

 {{{
 {-# LANGUAGE Arrows #-}

 (|:) :: Int -> Int -> Int
 (|:) = (+)
 }}}

 I get

 {{{
 /Users/rae/temp/Bug.hs:3:3: parse error on input ‘:’
 }}}

 Trying this with other operators, like `(|+)`,  works fine.

 The problem is that `notFollowedBySymbol` in Lexer.x is slightly wrong.

 I will fix in ongoing (mostly unrelated) work.

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/10582>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler