diff options
| author | Arianna Masciolini <uzkamascio@gmail.com> | 2025-08-08 18:20:47 +0200 |
|---|---|---|
| committer | Arianna Masciolini <uzkamascio@gmail.com> | 2025-08-08 18:20:47 +0200 |
| commit | dcae5f929eb5008818a66ef84a00b01d8c2c5390 (patch) | |
| tree | 24e128bb61e11d7fb7e7e882e8459dcb595635de /src/server | |
| parent | 638ed39fa4068ddb513542dfb886906d011bc38e (diff) | |
| parent | 726fb3467c1d1c1b6c15afc54ec81ad06528e7ac (diff) | |
fix typo
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 6e72ce5ea..fda611fdc 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -159,13 +159,13 @@ cpgfMain qsem command (t,(pgf,pc)) = -> out t=<< bracketedLin # tree % to "c-linearizeAll"-> out t=<< linAll # tree % to "c-translate" -> withQSem qsem $ - out t=<<join(trans # input % cat % to % start % limit%treeopts) + out t=<<join(trans # input % cat % to % start % limit % treeopts) "c-lookupmorpho"-> out t=<< morpho # from1 % textInput "c-lookupcohorts"->out t=<< cohorts # from1 % getInput "filter" % textInput "c-flush" -> out t=<< flush "c-grammar" -> out t grammar "c-abstrtree" -> outputGraphviz=<< C.graphvizAbstractTree pgf C.graphvizDefaults # tree - "c-parsetree" -> outputGraphviz=<< (\cnc -> C.graphvizParseTree cnc C.graphvizDefaults) . snd # from1 %tree + "c-parsetree" -> outputGraphviz=<< (\cnc -> C.graphvizParseTree cnc C.graphvizDefaults) . snd # from1 % tree "c-wordforword" -> out t =<< wordforword # input % cat % to _ -> badRequest "Unknown command" command where |