servant-elm-0.3.0.0: test/elm-sources/postTwoSource.elm

module PostTwoSource exposing (..)

import Http
import Json.Decode exposing (..)
import Json.Encode


postTwo : String -> Http.Request (Maybe (Int))
postTwo body =
    Http.request
        { method =
            "POST"
        , headers =
            []
        , url =
            String.join "/"
                [ ""
                , "two"
                ]
        , body =
            Http.jsonBody (Json.Encode.string body)
        , expect =
            Http.expectJson (maybe int)
        , timeout =
            Nothing
        , withCredentials =
            False
        }