summaryrefslogtreecommitdiff
path: root/src/server/PGFService.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/PGFService.hs')
-rw-r--r--src/server/PGFService.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index e196eca9c..037f32587 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -135,6 +135,8 @@ cpgfMain qsem command (t,(pgf,pc)) =
"c-lookupmorpho"-> out t=<< morpho # from1 % textInput
"c-flush" -> out t=<< flush
"c-grammar" -> out t grammar
+ "c-abstrtree" -> outputGraphviz=<< C.graphvizAbstractTree pgf # tree
+ "c-parsetree" -> outputGraphviz=<< C.graphvizParseTree . snd # from1 %tree
"c-wordforword" -> out t =<< wordforword # input % to
_ -> badRequest "Unknown command" command
where