$maybe r <- can (coreR $ UserAdminR UserAdminIndexR) "GET" _{Msg.Back}

_{Msg.NewUser}
$maybe r <- can (coreR $ UserAdminR UserAdminNewR) "POST"
^{formWidget}