diff --git a/src/Pages/Top.elm b/src/Pages/Top.elm index d299220..11e5312 100644 --- a/src/Pages/Top.elm +++ b/src/Pages/Top.elm @@ -304,11 +304,9 @@ viewApp app = -viewCategoryOption : (String, Category) -> Html Msg -viewCategoryOption category = - option - [ value (categories.toString (Tuple.second category) ) ] - [ text (categories.toString (Tuple.second category) ) ] +viewCategories : (String, Category) -> Html msg +viewCategories category = + div [] [text (Tuple.first category)] @@ -332,7 +330,9 @@ viewApps model = Success -> div [ class "row justify-content-center" ] - [ div [ class "col-md-3" ] [] + [ div [ class "col-md-3" ] [ + div [] (List.map viewCategories categories.list) + ] , div [ class "col-md-6" ] [ div [ class "row" ] [ div [ class "col-sm-12" ] [