diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Compile/MkConcrete.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs index da9fada00..2bd45a4e5 100644 --- a/src/GF/Compile/MkConcrete.hs +++ b/src/GF/Compile/MkConcrete.hs @@ -21,6 +21,7 @@ import GF.Grammar.Macros (composSafeOp, composOp, record2subst, zIdent) import GF.Compile.ShellState --(firstStateGrammar,stateGrammarWords) import GF.Compile.PGrammar (pTerm,pTrm) import GF.Compile.Compile +import GF.Compile.PrOld (stripTerm) import GF.Compile.GetGrammar import GF.API import GF.API.IOGrammar @@ -140,10 +141,10 @@ mkModule parser morpho (name,src) = case src of parse cat s t = case parser (prt_ cat) s of (tr:[], _) -> do updateSTM ((("PARSED in" +++ prt_ name) : s : [prt_ tr]) ++) - return tr + return $ stripTerm tr (tr:trs,_) -> do updateSTM ((("AMBIGUOUS in" +++ prt_ name) : s : map prt_ trs) ++) - return tr + return $ stripTerm tr ([],ms) -> do updateSTM ((("NO PARSE in" +++ prt_ name) : s : ms : [morph s]) ++) return t |