Elm json encode example

Omake.elm

-- おまけ用のメモ

> body = Http.jsonBody (UserEncoder.user User.new)
StringBody "application/json" "{\"id\":0,\"name\":\"\",\"email\":\"\"}"
    : Http.Body

> import Model.UserDecoder as UserDecoder
> Http.post "http://localhost:4000/exmamples" body UserDecoder.user
Request { method = "POST", headers = [], url = "http://localhost:4000/exmamples", body = StringBody "application/json" "{\"id\":0,\"name\":\"\",\"email\":\"\"}", expect = { responseType = "text", responseToResult = <function> }, timeout = Nothing, withCredentials = False }
    : Http.Request Model.User.Schema

> Http.post "http://localhost:4000/exmamples" body
<function> : Json.Decode.Decoder a -> Http.Request a

Repl.elm

$ elm repl
> import Model.User as User
> import Model.UserEncoder as UserEncodeer
> import Http
> UserEncodeer.user User.new |> Http.jsonBody
StringBody "application/json" "{\"id\":0,\"name\":\"\",\"email\":\"\"}"
    : Http.Body

User.elm

module Model.User exposing (Schema, new)

type alias Schema =
  { id : Int
  , name : String
  , email : String
  }

new : Schema
new =
  Schema 0 "" ""

UserEncoder.elm

module Model.UserEncoder exposing (user)

import Json.Encode as Encode exposing (Value, int, string, object)

import Model.User as User

id : Int -> (String, Encode.Value)
id value =
  ("id", Encode.int value)

name : String -> (String, Encode.Value)
name value =
  ("name", Encode.string value)

email : String -> (String, Encode.Value)
email value =
  ("email", Encode.string value)

user : User.Schema -> Encode.Value
user schema =
  Encode.object
    [ id schema.id
    , name schema.name
    , email schema.email
    ]