summaryrefslogtreecommitdiff
path: root/src/GF/Compile/GetGrammar.hs
diff options
context:
space:
mode:
authoraarne <unknown>2004-06-03 19:31:39 +0000
committeraarne <unknown>2004-06-03 19:31:39 +0000
commite78e5a6af7d92a2596d587588b6fabc03618e8d3 (patch)
tree83d22d534aa856d2e03cb6d0b141f3ded5a4d791 /src/GF/Compile/GetGrammar.hs
parent7716f818869971da138cf706c124a6be73bbab62 (diff)
SymbPN and SymbCN in resources
Diffstat (limited to 'src/GF/Compile/GetGrammar.hs')
-rw-r--r--src/GF/Compile/GetGrammar.hs4
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)