\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
+IFDEF TYPE THEN
+
exception ObjectNotFound of Bag.message
val set_entity: (Bag.entity -> 'a) -> Bag.entity -> 'a
val get_entity: (Bag.entity -> 'a) -> Bag.uri -> 'a
+
+END