msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

paths in Symbol modules; present in ResRon (not complete)

Browse Source
This commit is contained in:
aarne
2009-10-05 12:54:17 +00:00
parent a63668577e
commit be966cdda2
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/server/MorphoService.hs
View File

@@ -3,7 +3,7 @@ import GF.Data.Operations
import GF.Grammar.API import GF.Grammar.API
import GF.Grammar.Parser import GF.Grammar.Parser
import GF.Grammar.Grammar (Term) import GF.Grammar.Grammar (Term)
import GF.Grammar.PrGrammar (prTermTabular) --import GF.Grammar.PrGrammar (prTermTabular)
import GF.Infra.Option import GF.Infra.Option
import GF.Infra.UseIO import GF.Infra.UseIO
import GF.Text.UTF8 import GF.Text.UTF8
@@ -60,7 +60,8 @@ doEval :: Grammar -> String -> Err JSValue
doEval sgr t = liftM termToJSValue $ eval sgr t doEval sgr t = liftM termToJSValue $ eval sgr t
termToJSValue :: Term -> JSValue 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 :: Grammar -> String -> Err Term
eval sgr t = eval sgr t =