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

[ghc-hetmet.git] / ghc / driver / Main.hs

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 62643fc..1403830 100644 (file)
--- 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)