elm-export-0.5.1.0: test/CommentDecoder.elm

module CommentDecoder exposing (..)

import CommentType exposing (..)
import Dict
import Exts.Json.Decode exposing (..)
import Json.Decode exposing (..)
import Json.Decode.Pipeline exposing (..)


decodeComment : Decoder Comment
decodeComment =
    decode Comment
        |> required "postId" int
        |> required "text" string
        |> required "mainCategories" (tuple2 (,) string string)
        |> required "published" bool
        |> required "created" decodeDate
        |> required "tags" (map Dict.fromList (list (tuple2 (,) string int)))