Commit 46c2362e authored by simonmar's avatar simonmar
Browse files

[project @ 2002-01-22 14:47:52 by simonmar]

Strip whitespace from the beginning of the line when looking for
OPTIONS pragmas.
parent 33a7aa8b
-----------------------------------------------------------------------------
-- $Id: DriverUtil.hs,v 1.28 2001/10/11 23:52:51 sof Exp $
-- $Id: DriverUtil.hs,v 1.29 2002/01/22 14:47:52 simonmar Exp $
--
-- Utils for the driver
--
......@@ -43,7 +43,8 @@ getOptionsFromSource file
(\e -> if isEOFError e then return [] else ioError e)
where
look h = do
l <- hGetLine h
l' <- hGetLine h
let l = remove_spaces l'
case () of
() | null l -> look h
| prefixMatch "#" l -> look h
......
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