diff options
Diffstat (limited to 'src/Logging.ml')
| -rw-r--r-- | src/Logging.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Logging.ml b/src/Logging.ml index 6dca854c..e83f25f8 100644 --- a/src/Logging.ml +++ b/src/Logging.ml @@ -138,7 +138,8 @@ let level_to_color (lvl : L.level) = | NoLevel -> Default (** [format styles str] formats [str] to the given [styles] - - TODO: comes from easy_logging (did not manage to reuse the module directl) + TODO: comes from {{: http://ocamlverse.net/content/documentation_guidelines.html}[easy_logging]} + (did not manage to reuse the module directly) *) let rec format styles str = match styles with @@ -147,7 +148,8 @@ let rec format styles str = Printf.sprintf "\027[%dm%s\027[%dm" set (format styles' str) reset | [] -> str -(** TODO: comes from easy_logging (did not manage to reuse the module directly) *) +(** TODO: comes from {{: http://ocamlverse.net/content/documentation_guidelines.html}[easy_logging]} + (did not manage to reuse the module directly) *) let format_tags (tags : string list) = match tags with | [] -> "" |