96f5d5f · haskell-servant/servant-elm

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

Use original name from Haskell as a query param name

Closes #53

commit96f5d5f9995c780db90626d0957131471e71c6d0 authorKostiantyn Rybnikov <k-bx@k-bx.com> dateThu 30 May 2019, 21:46 (7 years ago) parent7925874

2 files changed+4−4

unifiedsplit

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

@@ -400,7 +400,7 @@ mkLetParams opts request =

400400 "String.fromInt >> "

401401 in

402402 "[" <+> (if wrapped then elmName else "Just" <+> elmName) <> line <>

403− (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes elmName)))

403+ (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes name)))

404404 <+> "]"

405405 -- (if wrapped then name else "Just" <+> name) <$>

406406 -- indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Http.encodeUri >> (++)" <+> dquotes (elmName <> equals)) <$>

test/elm-sources/getBooksSource.elm+3−3

@@ -27,11 +27,11 @@ getBooks query_published query_sort query_year query_category query_filters toMs

2727 else

2828 Nothing ]

2929 , [ query_sort

30− |> Maybe.map (Url.Builder.string "query_sort") ]

30+ |> Maybe.map (Url.Builder.string "sort") ]

3131 , [ query_year

32− |> Maybe.map (String.fromInt >> Url.Builder.string "query_year") ]

32+ |> Maybe.map (String.fromInt >> Url.Builder.string "year") ]

3333 , [ Just query_category

34− |> Maybe.map (Url.Builder.string "query_category") ]

34+ |> Maybe.map (Url.Builder.string "category") ]

3535 , query_filters

3636 |> List.map (\val -> Just (Url.Builder.string "filters[]" (maybeBoolToIntStr val)))

3737 ])