463c83c · haskell-servant/servant-elm

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

fix: dont add operators when there's no toString

commit463c83cdd06fe29c9e9ff8a49251cac04eeef13e authorGergely Szabo <gege251@gmail.com> dateSun 8 Sep 2019, 16:56 (7 years ago) parentab9cacc

1 file changed+4−5

unifiedsplit

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

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

640640

641641pipeLeft :: [Doc] -> Doc

642642pipeLeft =

643− encloseSep lparen rparen " <| "

643+ encloseSep lparen rparen " <| " . filter (not . isEmpty)

644644

645645pipeRight :: [Doc] -> Doc

646646pipeRight =

647− encloseSep lparen rparen " |> "

647+ encloseSep lparen rparen " |> " . filter (not . isEmpty)

648648

649649composeLeft :: [Doc] -> Doc

650650composeLeft =

651− encloseSep lparen rparen " << "

651+ encloseSep lparen rparen " << " . filter (not . isEmpty)

652652

653653composeRight :: [Doc] -> Doc

654654composeRight =

655− encloseSep lparen rparen " >> "

656−

655+ encloseSep lparen rparen " >> " . filter (not . isEmpty)