From 250bdc59920ca20509bd22cd364e3a65b9450d92 Mon Sep 17 00:00:00 2001
From: Moritz Gmeiner <moritz@gmeiner.net>
Date: Sat, 3 Aug 2024 02:44:47 +0200
Subject: [PATCH] removed debug printing; exit 1 on error

---
 bin/main.ml | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/bin/main.ml b/bin/main.ml
index 2dca889..7c2f3b2 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -6,11 +6,14 @@ let () =
   let argc = Array.length Sys.argv in
   match argc - 1 with
   | 0 -> Lox.runRepl ()
-  | 1 ->
+  | 1 -> (
       let path = Sys.argv.(1) in
-      Printf.printf "Running script %s\n" path;
+      (* Printf.printf "Running script %s\n" path; *)
       let ic = open_in path in
       let source = In_channel.input_all ic in
-      let result = Lox.run source in
-      Result.iter_error Lox.Error.print_error result
+      match Lox.run source with
+      | Error e ->
+          Lox.Error.print_error e;
+          exit 1
+      | Ok () -> exit 0)
   | _ -> printUsage ()