(* * Copyright (c) 2016 - present Facebook, Inc. * All rights reserved. * * This source code is licensed under the BSD style license found in the * LICENSE file in the root directory of this source tree. An additional grant * of patent rights can be found in the PATENTS file in the same directory. *) open! IStd type mode = On | Off type issue_desc = { name : string; (* issue name *) severity : Exceptions.err_kind; mode : mode; description : string; (* Description in the error message *) suggestion : string option; (* an optional suggestion or correction *) loc : Location.t; (* location in the code *) } val string_of_mode : mode -> string val pp_issue : Format.formatter -> issue_desc -> unit val should_run_check : mode -> bool