8 lines
228 B
Plaintext
8 lines
228 B
Plaintext
<ul .nav.navbar-nav>
|
|
$forall menuType <- menuTypes
|
|
$case menuType
|
|
$of NavbarLeft (MenuItem label route _)
|
|
<li :Just route == mcurrentRoute:.active>
|
|
<a href=@{route}>#{label}
|
|
$of _
|