Simplify some module syntax (#880)

BinaryAnalysisPlatform · Oct 4, 2018 · 8bb0bc1 · 8bb0bc1
1 parent 6eb311e
commit 8bb0bc1
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/lib/bap_disasm/bap_disasm_basic.ml b/lib/bap_disasm/bap_disasm_basic.ml
@@ -339,11 +339,9 @@ let compare_full_insn i1 i2 =
 
 type (+'a,+'k) insns = (mem * ('a,'k) insn option) list
 
-module Pred = struct
-  include Comparable.Make(struct
-      type t = pred [@@deriving compare, sexp]
-    end)
-end
+module Pred = Comparable.Make(struct
+    type t = pred [@@deriving compare, sexp]
+end)
 
 module Preds = Pred.Set
 type preds = Preds.t [@@deriving compare, sexp]