module UriSet = Set.Make (OrderedUri)
+(*
+module OrderedUriPair =
+struct
+ type t = uri * uri
+ let compare (u11, u12) (u21, u22) =
+ match compare u11 u21 with
+ | 0 -> compare u12 u22
+ | x -> x
+end
+
+module UriPairSet = Set.Make (OrderedUriPair)
+*)
+
module HashedUri =
struct
type t = uri