fixes for Janna

2004-08-12 09:02:00 +00:00
parent 4bc5b35bcb
commit 096c861fb4
4 changed files with 12 additions and 20 deletions
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -42,7 +42,8 @@ getOldGrammar :: Options -> FilePath -> IOE SourceGrammar
 getOldGrammar opts file = do
  defs <- parseOldGrammarFiles file
  let g = A.OldGr A.NoIncl defs
-  ioeErr $ transOldGrammar opts file g
+  let name = justFileName file
+  ioeErr $ transOldGrammar opts name g

 parseOldGrammarFiles :: FilePath -> IOE [A.TopDef]
 parseOldGrammarFiles file = do