Include .gf file name in source parsing syntax error message.

This commit is contained in:
bjorn
2008-10-30 10:49:23 +00:00
parent 0c7ac1cc6f
commit 5e711e7abc

View File

@@ -41,7 +41,7 @@ getSourceModule opts file0 = do
file <- foldM runPreprocessor file0 (flag optPreprocessors opts)
string <- readFileIOE file
let tokens = myLexer string
mo1 <- ioeErr $ pModDef tokens
mo1 <- ioeErr $ errIn file0 $ pModDef tokens
mo2 <- ioeErr $ transModDef mo1
return $ addOptionsToModule opts mo2