[commit: ghc] master: Lexer: update outdated comments [skip ci] (9d9c534)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9d9c534796bf7ecc6271603707450b8d297aeb4a/ghc

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

commit 9d9c534796bf7ecc6271603707450b8d297aeb4a
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Wed Nov 11 02:17:56 2015 +0100

    Lexer: update outdated comments [skip ci]
    
    The test for TemplateHaskell was removed in
    09015be8d580bc33f5f1960c8e31d00ba7a459a1.


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

9d9c534796bf7ecc6271603707450b8d297aeb4a
 compiler/parser/Lexer.x | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 084cd9e..cee8540 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1425,9 +1425,9 @@ lex_stringgap s = do
 
 lex_char_tok :: Action
 -- Here we are basically parsing character literals, such as 'x' or '\n'
--- but, when Template Haskell is on, we additionally spot
--- 'x and ''T, returning ITsimpleQuote and ITtyQuote respectively,
--- but WITHOUT CONSUMING the x or T part  (the parser does that).
+-- but we additionally spot 'x and ''T, returning ITsimpleQuote and
+-- ITtyQuote respectively, but WITHOUT CONSUMING the x or T part
+-- (the parser does that).
 -- So we have to do two characters of lookahead: when we see 'x we need to
 -- see if there's a trailing quote
 lex_char_tok span buf _len = do        -- We've seen '
@@ -1460,7 +1460,7 @@ lex_char_tok span buf _len = do        -- We've seen '
                         finish_char_tok buf loc c
                 _other -> do            -- We've seen 'x not followed by quote
                                         -- (including the possibility of EOF)
-                                        -- If TH is on, just parse the quote only
+                                        -- Just parse the quote only
                         let (AI end _) = i1
                         return (L (mkRealSrcSpan loc end) ITsimpleQuote)