Skip to content

Commit

Permalink
Merge pull request #4104 from commercialhaskell/hide-more-stderr
Browse files Browse the repository at this point in the history
Another case where some stderr from children leaked through
  • Loading branch information
snoyberg authored Jun 21, 2018
2 parents d2031db + 498b829 commit d995208
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Stack/Prelude.hs
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,7 @@ import Data.Conduit.Binary (sourceHandle, sinkHandle)
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.List as CL
import Data.Conduit.Process.Typed (withLoggedProcess_, createSource)
import RIO.Process (HasProcessContext (..), ProcessContext, setStdin, closed, getStderr, getStdout, proc, withProcess_, setStdout, setStderr, ProcessConfig, readProcessStdout_, workingDirL)
import RIO.Process (HasProcessContext (..), ProcessContext, setStdin, closed, getStderr, getStdout, proc, withProcess_, setStdout, setStderr, ProcessConfig, readProcess_, workingDirL)
import Data.Store as X (Store)
import Data.Text.Encoding (decodeUtf8With)
import Data.Text.Encoding.Error (lenientDecode)
Expand Down Expand Up @@ -149,7 +149,7 @@ readProcessNull :: (HasProcessContext env, HasLogFunc env)
-> RIO env ()
readProcessNull name args =
-- We want the output to appear in any exceptions, so we capture and drop it
void $ proc name args readProcessStdout_
void $ proc name args readProcess_

-- | Use the new 'ProcessContext', but retain the working directory
-- from the parent environment.
Expand Down

0 comments on commit d995208

Please sign in to comment.