diff --git a/goaljobs.ml b/goaljobs.ml index 3be5b51a59faed5dc1da6d7b6dc74bb0de8da4e3..e83f00e87ae8e2cf53eb2b0be89058b4080dfa95 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