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 viewCategories : (String, Category) -> Html msg
viewCategoryOption category = viewCategories category =
option div [] [text (Tuple.first category)]
[ value (categories.toString (Tuple.second category) ) ]
[ text (categories.toString (Tuple.second category) ) ]
@ -332,7 +330,9 @@ viewApps model =
Success -> Success ->
div [ class "row justify-content-center" ] 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 "col-md-6" ]
[ div [ class "row" ] [ div [ class "row" ]
[ div [ class "col-sm-12" ] [ [ div [ class "col-sm-12" ] [