From 64c1f9519e2b864dd6a33cd463d948fecd82a6bb Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 2 Jul 2018 07:26:29 +0300
Subject: [PATCH] Navbar link to blog

---
 src/Foundation.hs               |  1 +
 templates/default-layout.hamlet | 14 +++-----------
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 775ffae..c3d152d 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -145,6 +145,7 @@ instance ToMarkup (Route App) where
     toMarkup c =
         case c of
           AllSnapshotsR{} -> "Snapshots"
+          BlogHomeR -> "Blog"
           _ -> ""
 
 -- This instance is required to use forms. You can modify renderMessage to
diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet
index 986f016..e9366d7 100644
--- a/templates/default-layout.hamlet
+++ b/templates/default-layout.hamlet
@@ -9,17 +9,9 @@
         <img src="/static/img/stackage.png" title="FP Complete">
       <div class="nav-collapse collapse">
         <ul class="nav">
-          $forall route <- [AllSnapshotsR]
-            $maybe current <- cur
-              $if route == current
-                <li .active>
-                  <a href=@{route}>#{route}
-              $else
-                <li>
-                  <a href=@{route}>#{route}
-            $nothing
-              <li>
-                  <a href=@{route}>#{route}
+          $forall route <- [AllSnapshotsR, BlogHomeR]
+            <li :Just route == cur:.active>
+              <a href=@{route}>#{route}
 
 $maybe msg <- mmsg
     <div .container>