diff options
| author | panne <unknown> | 2003-09-08 14:46:37 +0000 |
|---|---|---|
| committer | panne <unknown> | 2003-09-08 14:46:37 +0000 |
| commit | f6af3fa05093ff703d587bb2b11c4ad008dc9ca5 (patch) | |
| tree | 50e74587b19635e8c7423e2e5e39a58ed0ba3a06 /ghc/compiler/parser/Lexer.x | |
| parent | a629ff5cb6733ae37a658f8eba6c92645fd828ab (diff) | |
| download | haskell-f6af3fa05093ff703d587bb2b11c4ad008dc9ca5.tar.gz | |
[project @ 2003-09-08 14:46:37 by panne]
*sigh* Handle lines like (note the blank!):
{-# LINE 1 "<command line>" #-}
Diffstat (limited to 'ghc/compiler/parser/Lexer.x')
| -rw-r--r-- | ghc/compiler/parser/Lexer.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x index 316cb10e33..344f0c43cf 100644 --- a/ghc/compiler/parser/Lexer.x +++ b/ghc/compiler/parser/Lexer.x @@ -157,7 +157,7 @@ $white_no_nl+ ; -- Haskell-style line pragmas, of the form -- {-# LINE <line> "<file>" #-} <line_prag2> $digit+ { set_line line_prag2a } -<line_prag2a> \" $graphic* \" { set_file line_prag2b } +<line_prag2a> \" [$graphic \ ]* \" { set_file line_prag2b } <line_prag2b> "#-}" { pop } <0,glaexts> { |