From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 7 Jan 2020 17:10:05 +0000 (+0000)
Subject: In debug mode (-d) print all shell scripts executed.
X-Git-Tag: v'0.2'~67
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=881b2e9b7bad0da8f44418e9e6558710db5ce690;p=goals.git

In debug mode (-d) print all shell scripts executed.
---

diff --git a/src/eval.ml b/src/eval.ml
index b614ddc..4589a40 100644
--- a/src/eval.ml
+++ b/src/eval.ml
@@ -186,6 +186,7 @@ and run_code_to_string_list env loc code =
   i, lines
 
 and prepare_code env loc (code, quiet) =
+  let quiet = if Cmdline.debug_flag then false else quiet in
   let code = to_shell_script env loc code in
   "source " ^ Filename.quote Cmdline.prelude_sh_file ^ "\n" ^
   "set -e\n" ^