stackage-server/templates/default-layout.hamlet

<div .container>
    <div .navbar role=navigation>
        <div .navbar-inner>
            <a .brand href=@{HomeR}>
                Stackage
            <ul .nav>
                <li>
                    <a href=@{AllSnapshotsR}>
                        All Snapshots
                <li>
                    <a href=@{UploadStackageR}>
                        Upload
            <ul .nav .pull-right>
                $maybe Entity _ user <- muser
                    <li>
                        <a href=@{ProfileR}>
                            <span .user-handle>
                                #{userHandle user}
                    <li>
                        <a href=@{AuthR LogoutR}>Logout
                $nothing
                    <li>
                        <a href=@{AuthR LoginR}>Login

$maybe msg <- mmsg
    <div .alert .alter-info>#{msg}

$case cur
  $of Just (AuthR _)
      <div .container>
          ^{widget}
  $of _
      ^{widget}