_{Msg.EditUser $ userName user} $if authId == userId _{Msg.You} $else $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "DELETE"

_{Msg.Remove} $if (userToken user) == Nothing $if userActive user $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "DEACTIVATE" _{Msg.Deactivate} $else $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "ACTIVATE" _{Msg.Activate}

_{Msg.Username}	#{userName user}
_{Msg.EmailAddress}	#{userEmail user}
_{Msg.Roles}	$forall role <- urs #{show role}
_{Msg.CreatedOn}	#{show $ utctDay $ userCreatedAt user}
_{Msg.LastLogin}	$maybe ll <- userLastLogin user #{humanReadableTimeI18N' hrtLocale timeNow $ ll} $nothing -
_{Msg.AccountStatus} $maybe ut <- userToken user	_{Msg.AccountPending} $nothing $if userActive user	_{Msg.AccountActive} $else	_{Msg.AccountInactive} $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "PATCH" _{Msg.ChangeAccountSettings} ^{formWidget} $if (userActive user) || (isJust $ userToken user) $if authId == userId $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "CHPASS" _{Msg.ChangePassword} ^{pwFormWidget} $else $maybe r <- can (coreR $ UserAdminR $ UserAdminEditR userId) "RQPASS" _{Msg.ResetPassword} _{Msg.RequestResetToken_Text}. _{Msg.RequestResetToken_Button}