let invalidate _ =
let l = HT.fold (fun k (o,g,gl) acc -> (k,(o,Some (g,gl)))::acc) cacheOfCookedObjects [] in
- unchecked_list := l ;
+ unchecked_list :=
+ HExtlib.list_uniq ~eq:(fun (x,_) (y,_) -> UriManager.eq x y)
+ (List.sort (fun (x,_) (y,_) -> UriManager.compare x y) (l @ !unchecked_list));
frozen_list := [];
HT.clear cacheOfCookedObjects;
;;