msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Slightly nicer output when reading old grammars

Browse Source
This commit is contained in:
bernardy
2007-10-15 08:05:33 +00:00
parent 0c132a75d4
commit 43e9eb3a1a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/GetGrammar.hs
View File

@@ -80,7 +80,7 @@ getOldGrammar opts file = do
parseOldGrammarFiles :: FilePath -> IOE [A.TopDef] parseOldGrammarFiles :: FilePath -> IOE [A.TopDef]
parseOldGrammarFiles file = do parseOldGrammarFiles file = do
putStrE $ "reading grammar of old format" +++ file putStrLnE $ "reading grammar of old format" +++ file
(_, g) <- getImports "" ([],[]) file (_, g) <- getImports "" ([],[]) file
return g -- now we can throw away includes return g -- now we can throw away includes
where where
@@ -95,7 +95,7 @@ parseOldGrammarFiles file = do
parseOldGrammar :: FilePath -> IOE ([FilePath],[A.TopDef]) parseOldGrammar :: FilePath -> IOE ([FilePath],[A.TopDef])
parseOldGrammar file = do parseOldGrammar file = do
putStrE $ "reading old file" +++ file putStrLnE $ "reading old file" +++ file
s <- ioeIO $ readFileIf file s <- ioeIO $ readFileIf file
A.OldGr incl topdefs <- ioeErr $ pOldGrammar $ oldLexer $ fixNewlines s A.OldGr incl topdefs <- ioeErr $ pOldGrammar $ oldLexer $ fixNewlines s
includes <- ioeErr $ transInclude incl includes <- ioeErr $ transInclude incl