bluedogtraining / bdt-elm / List.Nonempty.Bdt

Nonempty Helpers

Decode a Nonempty

decoder : Json.Decode.Decoder a -> Json.Decode.Decoder (List.Nonempty.Nonempty a)

Nonempty decoder

type alias Student =
    { firstName : String
    , courses : Nonempty Course
    }

decoder : Decoder Student
decoder =
    Decode.decode Student
        |> Decode.required "firstName" Decode.string
        |> Decode.required "courses" (Nonempty.decoder courseDecoder)