Don't strip whitespace from stdout/stderr

Author: tomjaguarpaw

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,15 +621,28 @@ data ExitCodeException = ExitCodeException
 instance Exception ExitCodeException
 instance Show ExitCodeException where
     show ece =
-        let decodeStrip = T.unpack . T.strip . TL.toStrict . TLE.decodeUtf8With lenientDecode
-            stdout = decodeStrip $ eceStdout ece
-            stderr = decodeStrip $ eceStderr ece
-            stdout' = if null stdout
+        let decode = TL.toStrict . TLE.decodeUtf8With lenientDecode
+
+            isAsciiSpace char = case char of
+                                  ' ' -> True
+                                  '\t' -> True
+                                  '\n' -> True
+                                  '\r' -> True
+                                  _ -> False
+            isOnlyAsciiWhitespace = T.null . T.dropAround isAsciiSpace
+
+            stdout = decode $ eceStdout ece
+            stderr = decode $ eceStderr ece
+            stdout' = if isOnlyAsciiWhitespace stdout
                          then []
-                         else ["\n\nStandard output:\n", stdout]
-            stderr' = if null stderr
+                         else [ "\n\nStandard output:\n"
+                              , T.unpack stdout
+                              ]
+            stderr' = if isOnlyAsciiWhitespace stderr
                          then []
-                         else ["\n\nStandard error:\n", stderr]
+                         else [ "\nStandard error:\n"
+                              , T.unpack stderr
+                              ]
         in concat $
             [ "Received "
             , show (eceExitCode ece)

test/System/Process/TypedSpec.hs

@@ -238,7 +238,7 @@ spec = do
                 ++ "Copied OK\n"
                 ++ "\n"
                 ++ "Standard error:\n"
-                ++ "Uh oh!"
+                ++ "Uh oh!\n"
 
         it "Show only stdout" $ do
             let exitCodeException =
@@ -253,7 +253,7 @@ spec = do
                 ++ "Raw command: show-puppy\n"
                 ++ "\n"
                 ++ "Standard output:\n"
-                ++ "No puppies found???"
+                ++ "No puppies found???\n"
 
         it "Show only stderr" $ do
             let exitCodeException =
@@ -266,17 +266,10 @@ spec = do
             show exitCodeException `shouldBe`
                 "Received ExitFailure 1 when running\n"
                 ++ "Raw command: show-puppy\n"
-                ++ "\n"
                 ++ "Standard error:\n"
-                ++ "No puppies found???"
-
-        it "Show trims stdout/stderr" $ do
-            -- This keeps the `Show` output looking nice regardless of how many
-            -- newlines (if any) the command outputs.
-            --
-            -- This also makes sure that the `Show` output doesn't end with a
-            -- spurious trailing newline, making it easier to compose `Show`
-            -- instances together.
+                ++ "No puppies found???\n"
+
+        it "Show does not trim stdout/stderr" $ do
             let exitCodeException =
                   ExitCodeException
                       { eceExitCode = ExitFailure 1
@@ -289,10 +282,10 @@ spec = do
                 ++ "Raw command: detect-doggies\n"
                 ++ "\n"
                 ++ "Standard output:\n"
-                ++ "puppy\n"
+                ++ "\n\npuppy\n\n \n"
                 ++ "\n"
                 ++ "Standard error:\n"
-                ++ "doggy"
+                ++ "\t \ndoggy\n \t\n"
 
         it "Show displays correctly with no newlines in stdout" $ do
             -- Sometimes, commands don't output _any_ newlines!