From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 20 Sep 2013 13:19:09 +0000 (+0100)
Subject: shout/shlines: Echo the output from these commands as it happens.
X-Git-Tag: 0.2~19
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=21663897b9d273742b51cd1626609eb6fa24bdce;p=goaljobs.git

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

diff --git a/goaljobs.ml b/goaljobs.ml
index 3be5b51..e83f00e 100644
--- 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