maybeSetRoleBasedOnParams :: UserId -> Handler ()
maybeSetRoleBasedOnParams userId = do
    runDB $ update userId [UserRole =. UR_STUDENT]
maybeSetRoleBasedOnParams :: UserId -> Handler ()
maybeSetRoleBasedOnParams userId = do
    runDB $ update userId [UserRole =. UR_STUDENT]
maybeSetRoleBasedOnParams userId = do
    runDB $ update userId [UserRole =. UR_STUDENT]