revert debugging code

from commit 63e37b0beb
This commit is contained in:
Joey Hess 2019-09-09 15:21:24 -04:00
parent f9f9215d2c
commit 07de0e7e9d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 1 additions and 2 deletions

View file

@ -277,7 +277,7 @@ processHandle (_, _, _, pid) = pid
-- | Shows the command that a CreateProcess will run.
showCmd :: CreateProcess -> String
showCmd p = go (cmdspec p) ++ " " ++ show (env p)
showCmd = go . cmdspec
where
go (ShellCommand s) = s
go (RawCommand c ps) = c ++ " " ++ show ps