summaryrefslogtreecommitdiff
path: root/src/Logging.ml
diff options
context:
space:
mode:
authorSon Ho2022-01-07 11:06:56 +0100
committerSon Ho2022-01-07 11:06:56 +0100
commite41b8da810b80a3e42bd5289dedfdb7bf2f10550 (patch)
tree97f11203888cd10e3e7debddcbe019e020170a43 /src/Logging.ml
parentdbbb01630190d999d3932fabd8a181b4f826f64f (diff)
Make more improvements to logging
Diffstat (limited to '')
-rw-r--r--src/Logging.ml13
1 files changed, 10 insertions, 3 deletions
diff --git a/src/Logging.ml b/src/Logging.ml
index ccf63d0d..b0eeadb7 100644
--- a/src/Logging.ml
+++ b/src/Logging.ml
@@ -9,14 +9,21 @@ let log = L.get_logger "MainLogger"
(** Below, we create subgloggers for various submodules, so that we can precisely
toggle logging on/off, depending on which information we need *)
+(** Logger for Interpreter *)
+let interpreter_log = L.get_logger "MainLogger.Interpreter"
+
(** Logger for InterpreterStatements *)
-let statements_log = L.get_logger "MainLogger.Statements"
+let statements_log = L.get_logger "MainLogger.Interpreter.Statements"
(** Logger for InterpreterExpansion *)
-let expansion_log = L.get_logger "MainLogger.Statements.Expansion"
+let expansion_log = L.get_logger "MainLogger.Interpreter.Statements.Expansion"
(** Logger for InterpreterExpressions *)
-let expressions_log = L.get_logger "MainLogger.Statements.Expressions"
+let expressions_log =
+ L.get_logger "MainLogger.Interpreter.Statements.Expressions"
+
+(** Logger for Invariants *)
+let invariants_log = L.get_logger "MainLogger.Interpreter.Invariants"
(** Terminal colors - TODO: comes from easy_logging (did not manage to reuse the module directly) *)
type color =