diff --git a/src/Pages/App_String.elm b/src/Pages/App_String.elm index 922ea52..4fd9870 100644 --- a/src/Pages/App_String.elm +++ b/src/Pages/App_String.elm @@ -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