Api.elm

graphcool: String
graphcool = "https://api.graph.cool/simple/v1/cjbm8w2980rge0186pld48aan"

fetchPosts: Cmd Msg
fetchPosts =
    Http.post graphcool (jsonBody <| Encoders.postsQuery) decodePosts
        |> RemoteData.sendRequest
        |> Cmd.map Messages.OnFetchPosts

createRequest : Form -> String -> Http.Request Post
createRequest form token =
    Http.request
        { method = "POST"
        , headers = [ Http.header "Authorization" <| "Bearer " ++ token ]
        , url = graphcool
        , body = Http.jsonBody <| Encoders.createPost form
        , expect = Http.expectJson Decoders.decodePost
        , timeout = Nothing
        , withCredentials = False
        }

createPost : Form -> String -> Cmd Msg
createPost form token =
    createRequest form token
        |> RemoteData.sendRequest
        |> Cmd.map Messages.OnCreatePost

authenticate: Token -> Cmd Msg
authenticate token =
    Http.post graphcool (jsonBody <| Encoders.authenticate token) decodeGraphcoolToken
        |> RemoteData.sendRequest
        |> Cmd.map Messages.OnFetchGraphcoolToken