From 274564b7d0152ef28bae4a0a5066e4af1b79474e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 14:30:54 -0400 Subject: [PATCH] wow, cute bug --- Propellor/SimpleSh.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Propellor/SimpleSh.hs b/Propellor/SimpleSh.hs index 741c1bc..0999be9 100644 --- a/Propellor/SimpleSh.hs +++ b/Propellor/SimpleSh.hs @@ -57,7 +57,7 @@ simpleSh namedpipe = do =<< catchMaybeIO (writeChan chan . t =<< hGetLine from) void $ concurrently (mkreader StdoutLine outh) - (mkreader StderrLine outh) + (mkreader StderrLine errh) writeChan chan . Done =<< waitForProcess pid