Commit 106eb84e authored by Valentin Reis's avatar Valentin Reis

remove runProcess_

parent 7e98c73e
Pipeline #6128 passed with stages
in 43 seconds
......@@ -43,7 +43,6 @@ import Data.Text as T
import Data.Traversable ( for )
import System.Directory
import System.Process.Typed ( readProcessStdout_
, runProcess_
, runProcess
, proc
, shell
......@@ -56,7 +55,9 @@ cleanLeftovers (WorkingDirectory wd) = do
putText "Cleaning sockets."
for_ socklist cleanSocket
putText "Cleaning output directory."
runProcess_ (shell $ toS $ "rm -rf " <> wd)
runProcess (shell $ toS $ "rm -rf " <> wd) >>= \case
ExitSuccess -> putText "Cleaned output directory"
ExitFailure _ -> putText "Failed running rm -rf on the output directory."
where
socklist =
[ "/tmp/nrm-downstream-in"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment