Attempt at parsing "version" from JSON
This commit is contained in:
parent
af5565dcc5
commit
70307aad9e
|
@ -37,7 +37,7 @@ type alias App =
|
||||||
{ name : String
|
{ name : String
|
||||||
, category : String
|
, category : String
|
||||||
, repository : Maybe String
|
, repository : Maybe String
|
||||||
, versions : Maybe (List String)
|
, versions : List String
|
||||||
, icon : Maybe String
|
, icon : Maybe String
|
||||||
, status : Int
|
, status : Int
|
||||||
, slug : String
|
, slug : String
|
||||||
|
@ -316,13 +316,24 @@ featuresDecoder =
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
|
versionsDecoder =
|
||||||
|
Decode.keyValuePairs Decode.value
|
||||||
|
|> Decode.map buildVersions
|
||||||
|
|
||||||
|
|
||||||
|
buildVersions : List ( String, Decode.Value ) -> List String
|
||||||
|
buildVersions versions =
|
||||||
|
List.map (\( version, _ ) -> version) versions
|
||||||
|
|
||||||
|
|
||||||
appDecoder : Decode.Decoder App
|
appDecoder : Decode.Decoder App
|
||||||
appDecoder =
|
appDecoder =
|
||||||
Decode.succeed App
|
Decode.succeed App
|
||||||
|> andMap (Decode.field "name" Decode.string)
|
|> andMap (Decode.field "name" Decode.string)
|
||||||
|> andMap (Decode.field "category" Decode.string)
|
|> andMap (Decode.field "category" Decode.string)
|
||||||
|> andMap (Decode.maybe (Decode.field "repository" Decode.string))
|
|> andMap (Decode.maybe (Decode.field "repository" Decode.string))
|
||||||
|> andMap (Decode.succeed Nothing)
|
|> andMap (Decode.at [ "versions" ] versionsDecoder)
|
||||||
|
-- |> andMap (Decode.succeed Nothing)
|
||||||
|> andMap (Decode.maybe (Decode.field "icon" Decode.string))
|
|> andMap (Decode.maybe (Decode.field "icon" Decode.string))
|
||||||
|> andMap (Decode.at [ "features" ] featuresDecoder)
|
|> andMap (Decode.at [ "features" ] featuresDecoder)
|
||||||
|> andMap (Decode.succeed "")
|
|> andMap (Decode.succeed "")
|
||||||
|
|
Loading…
Reference in New Issue