Add preliminary list of recipe versions
continuous-integration/drone/pr Build is failing
Details
continuous-integration/drone/pr Build is failing
Details
This commit is contained in:
parent
70307aad9e
commit
57b4db9bb2
|
@ -271,7 +271,10 @@ viewApp app readme =
|
|||
[ div [] (Markdown.toHtml Nothing readme)
|
||||
]
|
||||
, div [ class "card-footer" ]
|
||||
[]
|
||||
[ h5 [] [ text "Versions" ]
|
||||
, ul [] (
|
||||
List.map (\version -> li [] [ text (version) ]) app.versions
|
||||
)]
|
||||
]
|
||||
]
|
||||
|
||||
|
@ -316,14 +319,18 @@ featuresDecoder =
|
|||
]
|
||||
|
||||
|
||||
|
||||
|
||||
versionsDecoder : Decode.Decoder (List String)
|
||||
versionsDecoder =
|
||||
Decode.keyValuePairs Decode.value
|
||||
|> Decode.map buildVersions
|
||||
Decode.list (Decode.keyValuePairs Decode.value)
|
||||
|> Decode.map buildVersions
|
||||
|
||||
|
||||
buildVersions : List ( String, Decode.Value ) -> List String
|
||||
buildVersions : List (List ( String, Decode.Value )) -> List String
|
||||
buildVersions versions =
|
||||
List.map (\( version, _ ) -> version) versions
|
||||
List.concatMap (List.map (\( version, _ ) -> version)) versions
|
||||
|
||||
|
||||
|
||||
appDecoder : Decode.Decoder App
|
||||
|
|
Loading…
Reference in New Issue