From b5ccef567949cac34f55351b75d47988823d256a Mon Sep 17 00:00:00 2001
From: EJ Mitchell <ejm@cupofsquid.com>
Date: Wed, 13 Apr 2022 16:57:31 -0400
Subject: [PATCH] Adding categories to sidebar.

---
 src/Pages/Top.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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