Do not strip whitespace at the start of stdout/stderr

package.yaml

@@ -21,6 +21,7 @@ dependencies:
 - stm
 - transformers
 - unliftio-core
+- text >=2.0
 
 library:
   source-dirs: src

src/System/Process/Typed/Internal.hs

@@ -621,7 +621,7 @@ data ExitCodeException = ExitCodeException
 instance Exception ExitCodeException
 instance Show ExitCodeException where
     show ece =
-        let decodeStrip = T.unpack . T.strip . TL.toStrict . TLE.decodeUtf8With lenientDecode
+        let decodeStrip = T.unpack . T.stripEnd . TL.toStrict . TLE.decodeUtf8With lenientDecode
             stdout = decodeStrip $ eceStdout ece
             stderr = decodeStrip $ eceStderr ece
             stdout' = if null stdout

test/System/Process/TypedSpec.hs

@@ -289,10 +289,10 @@ spec = do
                 ++ "Raw command: detect-doggies\n"
                 ++ "\n"
                 ++ "Standard output:\n"
-                ++ "puppy\n"
+                ++ "\n\npuppy\n"
                 ++ "\n"
                 ++ "Standard error:\n"
-                ++ "doggy"
+                ++ "\t \ndoggy"
 
         it "Show displays correctly with no newlines in stdout" $ do
             -- Sometimes, commands don't output _any_ newlines!