introduced menu-widget

src/Foundation.hs

@@ -312,8 +312,11 @@ defaultMenuLayout menu widget = do
         addStylesheet $ StaticR css_bootstrap_css
         $(widgetFile "default-layout")
     withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
+    where
+        mainMenu :: [MenuTypes] -> Maybe (Route UniWorX) -> Widget
+        mainMenu menuTypes mcurrentRoute = $(widgetFile "main-menu")
+
 
-  
 -- How to run database actions.
 instance YesodPersist UniWorX where
     type YesodPersistBackend UniWorX = SqlBackend

src/Handler/Utils/Templates.hs

@@ -4,5 +4,5 @@ module Handler.Utils.Templates where
 
 import Import.NoFoundation
 
-mainMenu :: WidgetT site IO ()
+-- list :: WidgetT site IO ()
-mainMenu = $(widgetFile "main-menu")
+-- list = $(widgetFile "list") -- assumes /templates/list.hamlet

templates/default-layout.hamlet

@@ -10,18 +10,7 @@
                 <span class="icon-bar"></span>
 
         <div #navbar .collapse.navbar-collapse>
-           ^{mainMenu}
+            ^{mainMenu menuTypes mcurrentRoute}
-  
-            <ul .nav.navbar-nav>
-                $forall menuType <- menuTypes
-                  $case menuType
-                    $of NavbarLeft (MenuItem label route _)
-                      <li :Just route == mcurrentRoute:.active>
-                        <a href=@{route}>#{label}
-                    $of NavbarExtra (MenuItem label route _)
-                      <li :Just route == mcurrentRoute:.active>
-                        <a href=@{route}>#{label}
-                    $of _
 
             <ul .nav.navbar-nav.navbar-right>
                 $forall menuType <- menuTypes

templates/main-menu.hamlet

@@ -1 +1,7 @@
-This is a Menu.
+<ul .nav.navbar-nav>
+    $forall menuType <- menuTypes
+      $case menuType
+        $of NavbarLeft (MenuItem label route _)
+          <li :Just route == mcurrentRoute:.active>
+            <a href=@{route}>#{label}
+        $of _