From c61c1d4e255b5b5c4494e2bd3fa385e4b391bf5d Mon Sep 17 00:00:00 2001
From: tali <iitalics@gmail.com>
Date: Wed, 13 Dec 2023 17:16:38 -0500
Subject: [PATCH] prefix the debug logs

---
 bin/main.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/main.ml b/bin/main.ml
index a0fe652..e150d1b 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -6,9 +6,9 @@ let () =
 
   try
     let ast = parse "fun f() 3  val x = f() + 1" in
-    Logs.debug (fun m -> m "%a" Ast.pp_modl ast);
+    Logs.debug (fun m -> m "[AST] %a" Ast.pp_modl ast);
     let prog = compile ast in
-    Logs.debug (fun m -> Code.dump (m "%s") prog.main);
+    Logs.debug (fun m -> Code.dump (m "[BC] %s") prog.main);
     let modl = run prog in
-    Logs.debug (fun m -> m "%a" Value.pp modl)
+    Logs.debug (fun m -> m "[RET] %a" Value.pp modl)
   with Error msg -> Logs.err (fun m -> m "%s" msg)