From eb82d5050d6694fb75335afc5cb118e9e3900ea1 Mon Sep 17 00:00:00 2001 From: Jon Ludlam Date: Thu, 20 Feb 2025 17:58:01 +0000 Subject: [PATCH] Formatting --- src/model/error.mli | 3 ++- src/odoc/bin/main.ml | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/model/error.mli b/src/model/error.mli index 530e0c37f4..83916370f4 100644 --- a/src/model/error.mli +++ b/src/model/error.mli @@ -41,7 +41,8 @@ val catch_errors_and_warnings : (unit -> 'a) -> 'a with_errors_and_warnings type warnings_options = { warn_error : bool; (** If [true], warnings will result in an error. *) print_warnings : bool; (** Whether to print warnings. *) - warnings_tag : string option; (** Whether to tag references to filter them later. *) + warnings_tag : string option; + (** Whether to tag references to filter them later. *) } val handle_warnings : diff --git a/src/odoc/bin/main.ml b/src/odoc/bin/main.ml index 68c6dc24bf..cb802e00b1 100644 --- a/src/odoc/bin/main.ml +++ b/src/odoc/bin/main.ml @@ -713,7 +713,8 @@ end = struct let warnings_tags = let doc = - "Filter warnings that were compiled with a tag that is not in the list of --warnings-tags passed." + "Filter warnings that were compiled with a tag that is not in the list \ + of --warnings-tags passed." in let env = Arg.env_var "ODOC_WARNINGS_TAGS" ~doc in Arg.(value & opt_all string [] & info ~docs ~doc ~env [ "warnings-tags" ])