type direction = [ `LeftToRight | `RightToLeft ]
-type loc = Token.flocation
+type loc = Stdpp.location
type alias_spec =
| Ident_alias of string * string (* identifier, uri *)
(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 5
+let magic = 6
type inclusion_mode = WithPreferences | WithoutPreferences (* aka aliases *)