servant-elm 0.6.0.1 → 0.6.0.2
raw patch · 5 files changed
+11/−7 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−0
- README.md +1/−1
- servant-elm.cabal +1/−1
- src/Servant/Elm/Internal/Generate.hs +1/−2
- test/elm-sources/getBooksSource.elm +3/−3
CHANGELOG.md view
@@ -1,3 +1,8 @@+0.6.0.2+-------++* Ticket #53. Don't add a "query_" prefix to query params+ 0.6.0.1 -------
README.md view
@@ -4,7 +4,7 @@ Generate Elm functions to query your Servant API! -Elm type generation coutesy of [krisajenkins/elm-export](https://github.com/krisajenkins/elm-export).+Elm type generation coutesy of [elm-bridge](http://hackage.haskell.org/package/elm-bridge). ## Installation
servant-elm.cabal view
@@ -1,5 +1,5 @@ name: servant-elm-version: 0.6.0.1+version: 0.6.0.2 synopsis: Automatically derive Elm functions to query servant webservices. description: Please see README.md homepage: http://github.com/mattjbray/servant-elm#readme
src/Servant/Elm/Internal/Generate.hs view
@@ -306,7 +306,6 @@ returnType :: Maybe Doc returnType = do- result <- fmap elmTypeRef $ request ^. F.reqReturnType pure ("Cmd msg") @@ -401,7 +400,7 @@ "String.fromInt >> " in "[" <+> (if wrapped then elmName else "Just" <+> elmName) <> line <>- (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes elmName)))+ (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes name))) <+> "]" -- (if wrapped then name else "Just" <+> name) <$> -- indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Http.encodeUri >> (++)" <+> dquotes (elmName <> equals)) <$>
test/elm-sources/getBooksSource.elm view
@@ -27,11 +27,11 @@ else Nothing ] , [ query_sort- |> Maybe.map (Url.Builder.string "query_sort") ]+ |> Maybe.map (Url.Builder.string "sort") ] , [ query_year- |> Maybe.map (String.fromInt >> Url.Builder.string "query_year") ]+ |> Maybe.map (String.fromInt >> Url.Builder.string "year") ] , [ Just query_category- |> Maybe.map (Url.Builder.string "query_category") ]+ |> Maybe.map (Url.Builder.string "category") ] , query_filters |> List.map (\val -> Just (Url.Builder.string "filters[]" (maybeBoolToIntStr val))) ])