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

exb: call exprToAPI to create nicer linearization functions

Browse Source
This commit is contained in:
hallgren
2011-09-27 19:17:53 +00:00
parent ee0a6e6aad
commit 5588ba99cd
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/example-based/ExampleService.hs
View File

@@ -42,7 +42,7 @@ doAbstractExample cache environ =
parsePGF <- readParsePGF cache parsePGF <- readParsePGF cache
let lang:_ = languages parsePGF let lang:_ = languages parsePGF
Just (e,_) <- liftIO $ abstractExample parsePGF environ lang t abs example Just (e,_) <- liftIO $ abstractExample parsePGF environ lang t abs example
outputJSONP e --(showExpr [] (exprToAPI e)) outputJSONP (exprToAPI e)
abstractExample parsePGF env lang cat abs example = abstractExample parsePGF env lang cat abs example =
E.searchGoodTree env abs (parse parsePGF lang cat example) E.searchGoodTree env abs (parse parsePGF lang cat example)