Add preliminary list of recipe versions
continuous-integration/drone/pr Build is failing Details

This commit is contained in:
3wc 2023-03-28 00:15:35 -04:00
parent 70307aad9e
commit 57b4db9bb2
1 changed files with 12 additions and 5 deletions

View File

@ -271,7 +271,10 @@ viewApp app readme =
[ div [] (Markdown.toHtml Nothing readme) [ div [] (Markdown.toHtml Nothing readme)
] ]
, div [ class "card-footer" ] , 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 = versionsDecoder =
Decode.keyValuePairs Decode.value Decode.list (Decode.keyValuePairs Decode.value)
|> Decode.map buildVersions |> Decode.map buildVersions
buildVersions : List ( String, Decode.Value ) -> List String buildVersions : List (List ( String, Decode.Value )) -> List String
buildVersions versions = buildVersions versions =
List.map (\( version, _ ) -> version) versions List.concatMap (List.map (\( version, _ ) -> version)) versions
appDecoder : Decode.Decoder App appDecoder : Decode.Decoder App