updateUser :: User -> Update UserData ()
updateUser u = do
    let k = unId $ userId u
    users <- gets udataUsers
    modify $ \dat -> dat{ udataUsers = IM.insert k u users }
updateUser :: User -> Update UserData ()
updateUser u = do
    let k = unId $ userId u
    users <- gets udataUsers
    modify $ \dat -> dat{ udataUsers = IM.insert k u users }
updateUser u = do
    let k = unId $ userId u
    users <- gets udataUsers
    modify $ \dat -> dat{ udataUsers = IM.insert k u users }