From 910eb40c8632ca6e8a60938b2168d352289b8897 Mon Sep 17 00:00:00 2001
From: Felix Hamann <felix.hamann@campus.lmu.de>
Date: Sun, 18 Mar 2018 02:43:54 +0100
Subject: [PATCH] got rid of iconToText

---
 src/Foundation.hs                 | 6 ------
 templates/widgets/asidenav.hamlet | 6 ++++--
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 037d2607f..123ca4cff 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -355,12 +355,6 @@ defaultMenuLayout menu widget = do
         $(widgetFile "standalone/sortable")
         $(widgetFile "standalone/inputs")
     withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
-    where
-      iconToText :: Maybe Text -> Text
-      iconToText mText =
-          "" ++ case mText of
-                   Nothing  -> ""
-                   Just text -> text
 
 -- How to run database actions.
 instance YesodPersist UniWorX where
diff --git a/templates/widgets/asidenav.hamlet b/templates/widgets/asidenav.hamlet
index cb37d9e23..43c52c45b 100644
--- a/templates/widgets/asidenav.hamlet
+++ b/templates/widgets/asidenav.hamlet
@@ -4,9 +4,11 @@
       <ul .asidenav__list>
         $forall menuType <- menuTypes
           $case menuType
-            $of NavbarLeft (MenuItem label icon route _)
+            $of NavbarLeft (MenuItem label mIcon route _)
               <li .asidenav__list-item :Just route == mcurrentRoute:.asidenav__list-item--active>
-                <a .asidenav__link :isJust icon:.glyphicon :isJust icon:.glyphicon--#{iconToText icon} href=@{route}>#{label}
+                $if isJust mIcon
+                  <div .glyphicon.glyphicon--#{fromMaybe "" mIcon}>
+                <a .asidenav__link href=@{route}>#{label}
             $of _
 
     <div .asidenav__box>