let hash = function |Missing (_,vpkgs) -> OcamlHash.hash vpkgs |Conflict (i,j,_) -> OcamlHash.hash (i,j) |_ -> assert false