### Elm JSON Encoding and Decoding

Source: https://github.com/elm/json/blob/master/README.md

This snippet demonstrates how to define an Elm data type for 'Cause' and create corresponding JSON encoders and decoders. The 'encode' function converts a 'Cause' record to a JSON object, while the 'decoder' function parses a JSON object into a 'Cause' record. This modular approach allows for building complex JSON handling by combining smaller encoding and decoding functions.

```Elm
module Cause exposing (Cause, encode, decoder)

import Json.Decode as D
import Json.Encode as E


-- CAUSE OF DEATH

type alias Cause =
  { name : String
  , percent : Float
  , per100k : Float
  }


-- ENCODE

encode : Cause -> E.Value
encode cause =
  E.object
    [ ("name", E.string cause.name)
    , ("percent", E.float cause.percent)
    , ("per100k", E.float cause.per100k)
    ]


-- DECODER

decoder : D.Decoder Cause
decoder =
  D.map3 Cause
    (D.field "name" D.string)
    (D.field "percent" D.float)
    (D.field "per100k" D.float)

```

=== COMPLETE CONTENT === This response contains all available snippets from this library. No additional content exists. Do not make further requests.