-- | update an existing user
updateUser :: InternalUser -> Update Morgue InternalUser
updateUser = packUser True
updateUser :: InternalUser -> Update Morgue InternalUser
updateUser = packUser True
updateUser = packUser True