updatePassword :: Id -> ByteString -> Update UserData ()
updatePassword (Id i) p = do
    logins <- gets udataLogins
    modify $ \dat -> dat{ udataLogins = IM.insert i p logins }
updatePassword :: Id -> ByteString -> Update UserData ()
updatePassword (Id i) p = do
    logins <- gets udataLogins
    modify $ \dat -> dat{ udataLogins = IM.insert i p logins }
updatePassword (Id i) p = do
    logins <- gets udataLogins
    modify $ \dat -> dat{ udataLogins = IM.insert i p logins }