[project @ 2000-06-28 16:57:05 by simonmar]

ignore lines beginning with '#' when looking for {-# OPTIONS #-}

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)