X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=inline;f=goaljobs.ml;h=e83f00e87ae8e2cf53eb2b0be89058b4080dfa95;hb=21663897b9d273742b51cd1626609eb6fa24bdce;hp=3be5b51a59faed5dc1da6d7b6dc74bb0de8da4e3;hpb=23355e48876170ad9bc725fcb161da3ab0412cf0;p=goaljobs.git

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