diff options
| author | aarne <aarne@chalmers.se> | 2009-10-05 12:54:17 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-10-05 12:54:17 +0000 |
| commit | be966cdda2a2e10ee6e19e998d0c7c15b8f9a201 (patch) | |
| tree | 19450913fb476c3dc6868bf4d2d4391e2ab456bc | |
| parent | a63668577eb4b8ede69c5bd9d07c42366f6a6a60 (diff) | |
paths in Symbol modules; present in ResRon (not complete)
| -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 = |