Codec.elm

module Codec exposing (..)

import Json.Encode as Encode


type alias Listy =
    { a : List Int, b : Maybe String }


encodeListy : Listy -> Encode.Value
encodeListy obj =
    Encode.object
        [ ( "a", Encode.list (List.map Encode.int obj.a) )
        , ( "b", Maybe.withDefault Encode.null (Maybe.map Encode.string obj.b) )
        ]