diff options
Diffstat (limited to 'Omni/Bild.hs')
| -rw-r--r-- | Omni/Bild.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Omni/Bild.hs b/Omni/Bild.hs index 4bb62a5..aac0d2d 100644 --- a/Omni/Bild.hs +++ b/Omni/Bild.hs @@ -1235,7 +1235,8 @@ run Proc {..} = do Conduit.proc cmd args |> (\proc_ -> proc_ {Process.create_group = True}) |> Conduit.streamingProcess - +> \(Conduit.UseProvidedHandle, stdout_, stderr_, hdl) -> + +> \(stdin_, stdout_, stderr_, hdl) -> do + IO.hClose stdin_ -- Close stdin immediately since we don't use it (,,) </ Async.Concurrently (Conduit.waitForStreamingProcess hdl) <*> Async.Concurrently (loud ?: (puts stdout_, logs ns stdout_)) |