remove runProcess_

src/Argo/Stack.hs

@@ -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"