loc: add compare function

src/elpi_API.mli

@@ -36,6 +36,7 @@ module Ast : sig
     val pp : Format.formatter -> t -> unit
     val show : t -> string
     val equal : t -> t -> bool
+    val compare : t -> t -> int
 
     val initial : string -> t
   end

src/elpi_util.ml

@@ -95,7 +95,7 @@ module Loc = struct
     line: int;
     line_starts_at: int;
   }
-  [@@deriving eq]
+  [@@deriving eq, ord]
 
   let to_string {
     source_name;

src/elpi_util.mli

@@ -73,6 +73,7 @@ module Loc : sig
   val show : t -> string
   val pp : Format.formatter -> t -> unit
   val equal : t -> t -> bool
+  val compare : t -> t -> int
   val initial : string -> t
 end