GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixes for Janna

Browse Source
This commit is contained in:
aarne
2004-08-12 09:02:00 +00:00
parent 1b3f318ae8
commit 579ab5daa8
4 changed files with 12 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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