diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-30 10:49:23 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-30 10:49:23 +0000 |
| commit | 5e711e7abc33110e0a15a2eceff32946c1a5869d (patch) | |
| tree | ef4b020ace0a8458c48bed3d610d012f80c0ed69 | |
| parent | 0c7ac1cc6f005097db552d280776f01481661d6d (diff) | |
Include .gf file name in source parsing syntax error message.
| -rw-r--r-- | src/GF/Compile/GetGrammar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs index 85f017459..0972c4b3a 100644 --- a/src/GF/Compile/GetGrammar.hs +++ b/src/GF/Compile/GetGrammar.hs @@ -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 |