extractRepoResponse.elm

type Msg
    = GotRepos (Result Http.Error RepoResponse)


type alias RepoResponse =
    ( List LinkHeader.WebLink, List Repo )
    

fetchRepos : Cmd Msg
fetchRepos =
    Http.send GotRepos (getRepos "https://api.github.com/users/girishso/repos")


getRepos : String -> Http.Request RepoResponse
getRepos url =
    Http.request
        { method = "GET"
        , headers = []
        , url = url
        , body = Http.emptyBody
        , expect = Http.expectStringResponse extractRepoResponse
        , timeout = Nothing
        , withCredentials = False
        }


extractRepoResponse : Http.Response String -> Result String RepoResponse
extractRepoResponse resp =
    let
        headers =
            Dict.get "link" resp.headers
                |> Maybe.map LinkHeader.parse
                |> Maybe.withDefault []

        repos =
            Decode.decodeString decodeRepos resp.body
                |> Result.mapError Decode.errorToString
    in
    Result.map (\x -> ( headers, x )) repos