diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/server/MorphoService.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/server/MorphoService.hs b/src/server/MorphoService.hs index 146ba2307..cd1aac8b0 100644 --- a/src/server/MorphoService.hs +++ b/src/server/MorphoService.hs @@ -3,7 +3,7 @@ import GF.Data.Operations import GF.Grammar.API import GF.Grammar.Parser import GF.Grammar.Grammar (Term) -import GF.Grammar.PrGrammar (prTermTabular) +--import GF.Grammar.PrGrammar (prTermTabular) import GF.Infra.Option import GF.Infra.UseIO import GF.Text.UTF8 @@ -60,7 +60,8 @@ doEval :: Grammar -> String -> Err JSValue doEval sgr t = liftM termToJSValue $ eval sgr t termToJSValue :: Term -> JSValue -termToJSValue t = showJSON [toJSObject [("name", name), ("value",value)] | (name,value) <- prTermTabular t] +termToJSValue t = error "prTermTabular undefined" +---- showJSON [toJSObject [("name", name), ("value",value)] | (name,value) <- prTermTabular t] eval :: Grammar -> String -> Err Term eval sgr t = |