shout/shlines: Echo the output from these commands as it happens.

[goaljobs.git] / goaljobs.ml

diff --git a/goaljobs.ml b/goaljobs.ml
index 3be5b51..e83f00e 100644 (file)
--- a/goaljobs.ml
+++ b/goaljobs.ml
@@ -275,6 +275,7 @@ let do_shlines script =
   let lines = ref [] in
   let rec loop () =
     let line = input_line chan in
+    eprintf "%s\n%!" line;
     lines := line :: !lines;
     loop ()
   in