type 'obj command =
| Default of loc * string * UriManager.uri list
| Include of loc * string
| Set of loc * string * string
| Drop of loc
type 'obj command =
| Default of loc * string * UriManager.uri list
| Include of loc * string
| Set of loc * string * string
| Drop of loc