Adding categories to sidebar.
This commit is contained in:
parent
00c29418d7
commit
b5ccef5679
|
@ -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" ] [
|
||||
|
|
Loading…
Reference in New Issue