From: simonmar <unknown>
Date: Wed, 28 Jun 2000 16:57:05 +0000 (+0000)
Subject: [project @ 2000-06-28 16:57:05 by simonmar]
X-Git-Tag: Approximately_9120_patches~4123
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cc7894571c9c07706b33fa93d4c3f4866bf1c724;p=ghc-hetmet.git

[project @ 2000-06-28 16:57:05 by simonmar]
ignore lines beginning with '#' when looking for {-# OPTIONS #-}
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 62643fc..1403830 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -945,6 +945,7 @@ getOptionsFromSource file
 	    l <- hGetLine h
 	    case () of
 		() | null l -> look h
+		   | prefixMatch "#" l -> look h
 		   | prefixMatch "{-# LINE" l -> look h
 		   | Just (opts:_) <- matchRegex optionRegex l
 			-> return (words opts)