From 2c0fc4025bb733057046f50ba187ce64defadf89 Mon Sep 17 00:00:00 2001
From: Josh Berdine <jjb@fb.com>
Date: Thu, 7 Jan 2016 07:19:54 -0800
Subject: [PATCH] Remove out-of-date comments

Summary:
public
Remove out-of-date comments

Reviewed By: jvillard

Differential Revision: D2797424

fb-gh-sync-id: 764108e
---
 infer/src/backend/utils.ml  | 4 ++--
 infer/src/backend/utils.mli | 1 -
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/infer/src/backend/utils.ml b/infer/src/backend/utils.ml
index 4dee4aeed..b6880af14 100644
--- a/infer/src/backend/utils.ml
+++ b/infer/src/backend/utils.ml
@@ -704,7 +704,7 @@ let reserved_arg_desc =
     "-visits_bias", Arg.Unit (fun () -> Config.worklist_mode:= 2), None, "nodes visited fewer times are analyzed first";
   ]
 
-(**************** START MODULE Arg2 -- modified from Arg in the ocaml distribution ***************)
+
 module Arg = struct
 
   include Arg
@@ -741,7 +741,7 @@ module Arg = struct
       IList.sort (fun (x, _, _) (y, _, _) -> Pervasives.compare x y) unsorted_desc' in
     align dlist
 end
-(********** END OF MODULE Arg **********)
+
 
 (** Escape a string for use in a CSV or XML file: replace reserved characters with escape sequences *)
 module Escape = struct
diff --git a/infer/src/backend/utils.mli b/infer/src/backend/utils.mli
index a360a2dc8..8760406af 100644
--- a/infer/src/backend/utils.mli
+++ b/infer/src/backend/utils.mli
@@ -224,7 +224,6 @@ module SymOp : sig
   val report_total : Format.formatter -> unit -> unit
 end
 
-(** Modified version of Arg module from the ocaml distribution *)
 module Arg : sig
   include module type of Arg with type spec = Arg.spec