Added --parser=ondemand flag.

This commit is contained in:
bjorn
2008-10-20 14:52:50 +00:00
parent 6b8c9dd4c9
commit d327d9da6c
5 changed files with 35 additions and 19 deletions

View File

@@ -133,7 +133,7 @@ trPerh p = case p of
_ -> P.EMeta ---
trFlags :: Options -> [P.TopDef]
trFlags = map trFlag . moduleOptionsGFO
trFlags = map trFlag . optionsGFO
trFlag :: (String,String) -> P.TopDef
trFlag (f,x) = P.DefFlag [P.FlagDef (tri $ identC (BS.pack f)) (tri $ identC (BS.pack x))]