diff options
| -rw-r--r-- | src/GF/Compile/GetGrammar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs index 019e2f3d2..d9afc9546 100644 --- a/src/GF/Compile/GetGrammar.hs +++ b/src/GF/Compile/GetGrammar.hs @@ -80,7 +80,7 @@ getOldGrammar opts file = do parseOldGrammarFiles :: FilePath -> IOE [A.TopDef] parseOldGrammarFiles file = do - putStrE $ "reading grammar of old format" +++ file + putStrLnE $ "reading grammar of old format" +++ file (_, g) <- getImports "" ([],[]) file return g -- now we can throw away includes where @@ -95,7 +95,7 @@ parseOldGrammarFiles file = do parseOldGrammar :: FilePath -> IOE ([FilePath],[A.TopDef]) parseOldGrammar file = do - putStrE $ "reading old file" +++ file + putStrLnE $ "reading old file" +++ file s <- ioeIO $ readFileIf file A.OldGr incl topdefs <- ioeErr $ pOldGrammar $ oldLexer $ fixNewlines s includes <- ioeErr $ transInclude incl |