ppx_compare Clang_ast_types

Reviewed By: cristianoc

Differential Revision: D4232371

fbshipit-source-id: 5b06f23

infer/src/clang/clang_ast_types.ml

@@ -17,7 +17,7 @@ open! Utils
 (* Type pointers *)
 
 exception Not_Clang_Pointer
-type class_info = string * [`CPP | `OBJC]
+type class_info = string * [`CPP | `OBJC] [@@deriving compare]
 
 type t_ptr = [
   | `TPtr of int
@@ -27,11 +27,11 @@ type t_ptr = [
   | `ClassType of class_info
   | `StructType of string
   | `DeclPtr of int
-  | `ErrorType]
+  | `ErrorType
+] [@@deriving compare]
 
 module TypePointerOrd = struct
-  type t = t_ptr
+  type t = t_ptr [@@deriving compare]
-  let compare = Pervasives.compare
 end
 
 module TypePointerMap = Map.Make(TypePointerOrd)