Skip to content

Commit

Permalink
Add missing Haddock (correct?)
Browse files Browse the repository at this point in the history
I need to add exception info to comments here, but first I needed to add
this comment from scratch. I hope I got it right, please check?

Also a spacing fixup.
  • Loading branch information
Blaisorblade committed Aug 14, 2016
1 parent 0b35c49 commit b3e2261
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/System/Process/Read.hs
Original file line number Diff line number Diff line change
Expand Up @@ -164,7 +164,7 @@ tryProcessStdout wd menv name args =

-- | Produce a strict 'S.ByteString' from the stdout of a process.
--
-- Throws a 'ReadProcessException' exception if the process fails.
-- Throws a 'ReadProcessException' exception if the process fails.
readProcessStdout :: (MonadIO m, MonadLogger m, MonadBaseControl IO m, MonadCatch m)
=> Maybe (Path Abs Dir) -- ^ Optional directory to run in
-> EnvOverride
Expand Down Expand Up @@ -276,6 +276,7 @@ sinkProcessStderrStdout wd menv name args sinkStderr sinkStdout = do
f :: Source IO S.ByteString -> Source IO S.ByteString -> IO (e, o)
f err out = (err $$ sinkStderr) `concurrently` (out $$ sinkStdout)

-- | Like sinkProcessStderrStdout, but receives Handles for stderr and stdout instead of 'Sink's.
sinkProcessStderrStdoutHandle :: (MonadIO m, MonadLogger m)
=> Maybe (Path Abs Dir) -- ^ Optional directory to run in
-> EnvOverride
Expand Down

0 comments on commit b3e2261

Please sign in to comment.