From 1bc365f36e22a65379effca5b548ea083847b269 Mon Sep 17 00:00:00 2001
From: Josh Berdine <jjb@fb.com>
Date: Tue, 29 Nov 2016 16:32:51 -0800
Subject: [PATCH] ppx_compare Clang_ast_types

Reviewed By: cristianoc

Differential Revision: D4232371

fbshipit-source-id: 5b06f23
---
 infer/src/clang/clang_ast_types.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/infer/src/clang/clang_ast_types.ml b/infer/src/clang/clang_ast_types.ml
index d17881e5e..7dcf692f2 100644
--- a/infer/src/clang/clang_ast_types.ml
+++ b/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
-  let compare = Pervasives.compare
+  type t = t_ptr [@@deriving compare]
 end
 
 module TypePointerMap = Map.Make(TypePointerOrd)