fresh :: Update UserData Id
fresh = do
    i <- gets udataNextId
    modify $ \dat -> dat{ udataNextId = i + 1 }
    return i


fresh :: Update UserData Id
fresh = do
    i <- gets udataNextId
    modify $ \dat -> dat{ udataNextId = i + 1 }
    return i


fresh = do
    i <- gets udataNextId
    modify $ \dat -> dat{ udataNextId = i + 1 }
    return i

