Nonempty Helpers
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)