From cdef284b2be0ae526318e5b8d6d18a4e7fd37774 Mon Sep 17 00:00:00 2001 From: hallgren Date: Tue, 27 Sep 2011 19:17:53 +0000 Subject: [PATCH] exb: call exprToAPI to create nicer linearization functions --- src/example-based/ExampleService.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)