haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-27 03:11:57 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Navbar link to blog

Browse Source
This commit is contained in:
Michael Snoyman 2018-07-02 07:26:29 +03:00
parent b81f5b790b
commit 64c1f9519e
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Foundation.hs
View File

@ -145,6 +145,7 @@ instance ToMarkup (Route App) where
toMarkup c = toMarkup c =
case c of case c of
AllSnapshotsR{} -> "Snapshots" AllSnapshotsR{} -> "Snapshots"
BlogHomeR -> "Blog"
_ -> "" _ -> ""
-- This instance is required to use forms. You can modify renderMessage to -- This instance is required to use forms. You can modify renderMessage to

14
templates/default-layout.hamlet
View File

@ -9,17 +9,9 @@
<img src="/static/img/stackage.png" title="FP Complete"> <img src="/static/img/stackage.png" title="FP Complete">
<div class="nav-collapse collapse"> <div class="nav-collapse collapse">
<ul class="nav"> <ul class="nav">
$forall route <- [AllSnapshotsR] $forall route <- [AllSnapshotsR, BlogHomeR]
$maybe current <- cur <li :Just route == cur:.active>
$if route == current <a href=@{route}>#{route}
<li .active>
<a href=@{route}>#{route}
$else
<li>
<a href=@{route}>#{route}
$nothing
<li>
<a href=@{route}>#{route}
$maybe msg <- mmsg $maybe msg <- mmsg
<div .container> <div .container>