Fix alias colon order

2015-09-22 11:16:36 +02:00 · 2015-09-22 11:16:36 +02:00 · 4508364266
parent 99b4d86702
commit 4508364266
1 changed files with 1 additions and 1 deletions
--- a/Data/GraphQL/Printer.hs
+++ b/Data/GraphQL/Printer.hs
@ -52,7 +52,7 @@ selection (SelectionFragmentSpread x) = fragmentSpread x

 field :: Field -> Text
 field (Field alias name args ds ss) =
-       optempty (cons ':') alias
+       optempty (`snoc` ':') alias
    <> name
    <> optempty arguments args
    <> optempty directives ds