diff options
| author | aarne <unknown> | 2004-06-03 19:31:39 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-06-03 19:31:39 +0000 |
| commit | e78e5a6af7d92a2596d587588b6fabc03618e8d3 (patch) | |
| tree | 83d22d534aa856d2e03cb6d0b141f3ded5a4d791 /src/GF/Compile/GetGrammar.hs | |
| parent | 7716f818869971da138cf706c124a6be73bbab62 (diff) | |
SymbPN and SymbCN in resources
Diffstat (limited to 'src/GF/Compile/GetGrammar.hs')
| -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 a9cae513a..4e641dc3d 100644 --- a/src/GF/Compile/GetGrammar.hs +++ b/src/GF/Compile/GetGrammar.hs @@ -31,7 +31,7 @@ getSourceModule :: FilePath -> IOE SourceModule getSourceModule file = do string <- readFileIOE file let tokens = myLexer string - mo1 <- ioeErr $ err2err $ pModDef tokens + mo1 <- ioeErr $ {- err2err $ -} pModDef tokens ioeErr $ transModDef mo1 @@ -62,7 +62,7 @@ parseOldGrammar :: FilePath -> IOE ([FilePath],[A.TopDef]) parseOldGrammar file = do putStrE $ "reading old file" +++ file s <- ioeIO $ readFileIf file - A.OldGr incl topdefs <- ioeErr $ err2err $ pOldGrammar $ oldLexer $ fixNewlines s + A.OldGr incl topdefs <- ioeErr $ {- err2err $ -} pOldGrammar $ oldLexer $ fixNewlines s includes <- ioeErr $ transInclude incl return (includes, topdefs) |
