22 lines
485 B
Elm
22 lines
485 B
Elm
|
module Card exposing (..)
|
||
|
|
|
||
|
|
import Json.Decode
|
||
|
|
import Json.Decode.Pipeline as JDP
|
||
|
|
|
||
|
|
|
||
|
|
type alias Card =
|
||
|
|
{ scryfallId : String
|
||
|
|
, name : String
|
||
|
|
, setCode : String
|
||
|
|
, rarity : String
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
decode : Json.Decode.Decoder Card
|
||
|
|
decode =
|
||
|
|
Json.Decode.succeed Card
|
||
|
|
|> JDP.required "scryfall_id" Json.Decode.string
|
||
|
|
|> JDP.required "name" Json.Decode.string
|
||
|
|
|> JDP.required "set_code" Json.Decode.string
|
||
|
|
|> JDP.required "rarity" Json.Decode.string
|