module ICNDB exposing (..)

import Json.Decode as Decode exposing (Decoder, Value)


type alias Result =
    { joke : String }


resultDecoder : Decoder Result
resultDecoder =
    Decode.map (\x -> { joke = x }) <| Decode.at [ "value", "joke" ] Decode.string