Encoders.elm

postsQuery : Encoder.Value
postsQuery =
    Encoder.object
        [ ( "query", Encoder.string "query {allPosts(orderBy: createdAt_DESC){id title body}}" ) ]

authenticate : Token -> Encoder.Value
authenticate token =
    let
        query =
            "mutation {authenticate (accessToken: \"" ++ token.accessToken ++ "\"){token}}"
    in
        Encoder.object
            [ ( "query", Encoder.string query ) ]

createPost : Form -> Encoder.Value
createPost form =
    let
        query =
            "mutation {createPost(title: \"" ++ form.postTitle ++ "\" body: \"" ++ form.postBody ++ "\"" ++ "){id}}"
    in
        Encoder.object
            [ ( "query", Encoder.string query ) ]