Commit cc789457 authored by simonmar's avatar simonmar
Browse files

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

ignore lines beginning with '#' when looking for {-# OPTIONS #-}
parent 221f85fe
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment