flewkey
/
tooty
1
0
Fork 0
Code Releases Activity

leverage HttpBuilder.withQueryParams where applicable.

This commit is contained in:
Nicolas Perriault 2017-05-02 22:31:15 +02:00
parent ce27e30297
commit dc5ad2e670
No known key found for this signature in database
GPG Key ID: DA5E4C83904F7A2A
2 changed files with 11 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Mastodon/ApiUrl.elm
View File

@ -25,8 +25,6 @@ module Mastodon.ApiUrl
, searchAccount , searchAccount
) )
import Mastodon.Encoder exposing (encodeUrl)
type alias Server = type alias Server =
String String
@ -77,10 +75,9 @@ searchAccount =
accounts ++ "search" accounts ++ "search"
relationships : List Int -> String relationships : String
relationships ids = relationships =
encodeUrl (accounts ++ "relationships") <| accounts ++ "relationships"
List.map (\id -> ( "id[]", toString id )) ids
followers : Int -> String followers : Int -> String
@ -98,18 +95,9 @@ homeTimeline =
"/api/v1/timelines/home" "/api/v1/timelines/home"
publicTimeline : Maybe String -> String publicTimeline : String
publicTimeline local = publicTimeline =
let "/api/v1/timelines/public"
isLocal =
case local of
Just local ->
"?local=true"
Nothing ->
""
in
"/api/v1/timelines/public" ++ isLocal
accountTimeline : Int -> String accountTimeline : Int -> String

11
src/Mastodon/Http.elm
View File

@ -140,20 +140,19 @@ fetchUserTimeline client =
fetchRelationships : Client -> List Int -> Request (List Relationship) fetchRelationships : Client -> List Int -> Request (List Relationship)
fetchRelationships client ids = fetchRelationships client ids =
-- TODO: use withQueryParams fetch client GET ApiUrl.relationships (Decode.list relationshipDecoder)
fetch client GET (ApiUrl.relationships ids) <| Decode.list relationshipDecoder |> Build.withQueryParams (List.map (\id -> ( "id[]", toString id )) ids)
fetchLocalTimeline : Client -> Request (List Status) fetchLocalTimeline : Client -> Request (List Status)
fetchLocalTimeline client = fetchLocalTimeline client =
-- TODO: use withQueryParams fetch client GET ApiUrl.publicTimeline (Decode.list statusDecoder)
fetch client GET (ApiUrl.publicTimeline (Just "public")) <| Decode.list statusDecoder |> Build.withQueryParams [ ( "local", "true" ) ]
fetchGlobalTimeline : Client -> Request (List Status) fetchGlobalTimeline : Client -> Request (List Status)
fetchGlobalTimeline client = fetchGlobalTimeline client =
-- TODO: use withQueryParams fetch client GET ApiUrl.publicTimeline <| Decode.list statusDecoder
fetch client GET (ApiUrl.publicTimeline (Nothing)) <| Decode.list statusDecoder
fetchAccountTimeline : Client -> Int -> Request (List Status) fetchAccountTimeline : Client -> Int -> Request (List Status)