Skip to content

Commit b02bb08

Browse files
committed
Fix warnings for ghc-9.6 about multiplicity syntax
1 parent c7e26d7 commit b02bb08

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/server/PGFService.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -159,13 +159,13 @@ cpgfMain qsem command (t,(pgf,pc)) =
159159
-> out t=<< bracketedLin # tree % to
160160
"c-linearizeAll"-> out t=<< linAll # tree % to
161161
"c-translate" -> withQSem qsem $
162-
out t=<<join(trans # input % cat % to % start % limit%treeopts)
162+
out t=<<join(trans # input % cat % to % start % limit % treeopts)
163163
"c-lookupmorpho"-> out t=<< morpho # from1 % textInput
164164
"c-lookupcohorts"->out t=<< cohorts # from1 % getInput "filter" % textInput
165165
"c-flush" -> out t=<< flush
166166
"c-grammar" -> out t grammar
167167
"c-abstrtree" -> outputGraphviz=<< C.graphvizAbstractTree pgf C.graphvizDefaults # tree
168-
"c-parsetree" -> outputGraphviz=<< (\cnc -> C.graphvizParseTree cnc C.graphvizDefaults) . snd # from1 %tree
168+
"c-parsetree" -> outputGraphviz=<< (\cnc -> C.graphvizParseTree cnc C.graphvizDefaults) . snd # from1 % tree
169169
"c-wordforword" -> out t =<< wordforword # input % cat % to
170170
_ -> badRequest "Unknown command" command
171171
where

0 commit comments

Comments
 (0)