From: simonmar <unknown>
Date: Mon, 8 Mar 2004 11:20:53 +0000 (+0000)
Subject: [project @ 2004-03-08 11:20:53 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~15
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8870be26eb28262a587a1b8a15c798c31e75135c;p=ghc-hetmet.git

[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
--- 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 }
 }