$newline never
\
$case userInfo
$of Left (Just Address{..})
$maybe name <- addressName
- Name
- #{name}
- E-Mail
- #{addressEmail}
$of Left Nothing
$of Right Nothing
- Ungültige UserId erhalten!
$of Right (Just (Entity _ User{userDisplayName, userSurname, userIdent, userEmail, userMatrikelnummer, userLanguages}))
- Name
- ^{const (const (nameHtml userDisplayName userSurname))}
- Identifikation
- #{userIdent}
- E-Mail
- #{userEmail}
$maybe matrnr <- userMatrikelnummer
- Matrikelnummer
- #{matrnr}
$maybe langs <- fmap (view _Wrapped) userLanguages
$if not (null langs)
- Präferierte E-Mail Sprachen
$forall lang <- langs
- #{lang}
- Zeit
- #{rtime}
$maybe referer <- jReferer
- Referer
-
#{referer}
#{jHelpRequest}