Adding categories to sidebar.

This commit is contained in:
Eiven Mitchell 2022-04-13 16:57:31 -04:00
parent 00c29418d7
commit b5ccef5679
1 changed files with 6 additions and 6 deletions

View File

@ -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" ] [