JSON decode

JsonDecode.elm

-- json : String
-- json =
--     """
-- {
--   "kind": "Listing",
--   "data": {
--     "children": [
--       {"data":{"url":"http://www.example.com", "title":"hello"}},
--       {"data":{"url": "http://www.example.com", "title":"world"}}
--     ]
--   }
-- }
-- """


type alias Post =
    { url : String
    , title : String
    }


type alias PostList =
    List Post


postDecoder : Decoder Post
postDecoder =
    JD.map2 Post
        (field "url" string)
        (field "title" string)



-- postsDecoder : Decoder PostList
-- postsDecoder =
--     at [ "data", "children" ] <|
--         JD.list <|
--             at [ "data" ] postDecoder


postsDecoder : Decoder PostList
postsDecoder =
    at [ "data" ] postDecoder
        |> JD.list
        |> at [ "data", "children" ]