module U = NUri
module L = Log
-module H = U.UriHash
-module Y = Entity
-module B = Bag
+module K = U.UriHash
+module E = Entity
+module Z = Bag
-exception ObjectNotFound of B.message
+exception ObjectNotFound of Z.message
let hsize = 7000
-let env = H.create hsize
+let env = K.create hsize
(* Internal functions *******************************************************)
let set_entity f (a, uri, b) =
let age = get_age () in
- let entry = (Y.Apix age :: a), uri, b in
- H.add env uri entry; f entry
+ let entry = (E.Apix age :: a), uri, b in
+ K.add env uri entry; f entry
let get_entity f uri =
- try f (H.find env uri) with Not_found -> error uri
+ try f (K.find env uri) with Not_found -> error uri