From 8870be26eb28262a587a1b8a15c798c31e75135c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 8 Mar 2004 11:20:53 +0000
Subject: [PATCH] [project @ 2004-03-08 11:20:53 by simonmar] Ignore #! lines
 for scripts.

---
 ghc/compiler/parser/Lexer.x |    1 +
 1 file changed, 1 insertion(+)

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