ppx_compare CallSite

Reviewed By: cristianoc

Differential Revision: D4232388

fbshipit-source-id: 2673480

infer/src/IR/CallSite.ml

@@ -14,15 +14,7 @@ type t =
     pname : Procname.t;
     loc : Location.t;
   }
-
-let compare t1 t2 =
-  if t1 == t2
-  then 0
-  else
-    let n = Procname.compare t1.pname t2.pname in
-    if n <> 0
-    then n
-    else Location.compare t1.loc t2.loc
+[@@deriving compare]
 
 let equal t1 t2 =
   compare t1 t2 = 0

infer/src/IR/CallSite.mli

@@ -9,9 +9,7 @@
 
 module F = Format
 
-type t
-
-val compare : t -> t -> int
+type t [@@deriving compare]
 
 val equal : t -> t -> bool