ab9cacc · haskell-servant/servant-elm

git.iko.soy/haskell-servant/servant-elm

fix pipe and compose helpers

commitab9cacc9ec8338ee4dd3b98e7669a03bac12489e authorGergely Szabo <gege251@gmail.com> dateSun 8 Sep 2019, 16:30 (7 years ago) parent0655bb4

1 file changed+4−4

unifiedsplit

src/Servant/Elm/Internal/Generate.hs+4−4

@@ -640,17 +640,17 @@ toString opts argType =

640640

641641pipeLeft :: [Doc] -> Doc

642642pipeLeft =

643− encloseSep lbracket rbracket " <| "

643+ encloseSep lparen rparen " <| "

644644

645645pipeRight :: [Doc] -> Doc

646646pipeRight =

647− encloseSep lbracket rbracket " |> "

647+ encloseSep lparen rparen " |> "

648648

649649composeLeft :: [Doc] -> Doc

650650composeLeft =

651− encloseSep lbracket rbracket " << "

651+ encloseSep lparen rparen " << "

652652

653653composeRight :: [Doc] -> Doc

654654composeRight =

655− encloseSep lbracket rbracket " >> "

655+ encloseSep lparen rparen " >> "

656656