$maybe r <- can (masterHomeR) "GET" _{adminTitle} $nothing _{adminTitle}

$with Entity userId user <- auth

#{userName user}
- _{Msg.AccountSettings} $maybe r <- can (authR LogoutR) "GET"
- _{Msg.Logout}
  $if not $ null am
  
  $forall menuItem <- am
  _{label menuItem}
  $maybe msg <- mmsg