[project @ 2004-03-08 11:20:53 by simonmar]

Ignore #! lines for scripts.

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 2d01a18..c90e934 100644 (file)
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -124,6 +124,7 @@ $white_no_nl+                               ;
   \n                                   ;
   ^\# (line)?                          { begin line_prag1 }
   ^\# pragma .* \n                     ; -- GCC 3.3 CPP generated, apparently
+  ^\# \! .* \n                         ; -- #!, for scripts
   ()                                   { do_bol }
 }