diff options
| author | hallgren <hallgren@chalmers.se> | 2011-09-27 19:17:53 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-09-27 19:17:53 +0000 |
| commit | cdef284b2be0ae526318e5b8d6d18a4e7fd37774 (patch) | |
| tree | 550a33ad851ce1ac669c405aee65ea2f941c02dc /src/example-based/ExampleService.hs | |
| parent | b9b353795bec6ea9155d086e109485c960ee5397 (diff) | |
exb: call exprToAPI to create nicer linearization functions
Diffstat (limited to 'src/example-based/ExampleService.hs')
| -rw-r--r-- | src/example-based/ExampleService.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/example-based/ExampleService.hs b/src/example-based/ExampleService.hs index fd045f76c..0d105c746 100644 --- a/src/example-based/ExampleService.hs +++ b/src/example-based/ExampleService.hs @@ -42,7 +42,7 @@ doAbstractExample cache environ = parsePGF <- readParsePGF cache let lang:_ = languages parsePGF 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 = E.searchGoodTree env abs (parse parsePGF lang cat example) |