Skip to content

Instantly share code, notes, and snippets.

@zwilias

zwilias/first-attempt.elm Secret

Created August 2, 2017 09:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zwilias/c2c749767d16083db31d453115416886 to your computer and use it in GitHub Desktop.
Save zwilias/c2c749767d16083db31d453115416886 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
first-attempt.elm
decoder : Decoder Tree
decoder =
oneOf
[ branchDecoder
, leafDecoder
]
branchDecoder : Decoder Tree
branchDecoder =
map2 Branch
(field "name" string)
(field "children" (list decoder))
leafDecoder : Decoder Tree
leafDecoder =
map2 Leaf
(field "name" string)
(field "value" int)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment