ignore more errors

1 files changed, 4 insertions, 4 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index ed09669..dbde290 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -141,10 +141,10 @@ buildRoot config@DiskImageConfig{..} finalOut = do
       mountpoint = finalOut <.> "mnt"
   cmd_ "sh -c" ["if mountpoint -q \"$0\"; then umount \"$0\"; fi", mountpoint]
 
-  let (abortion :: IO ()) = ignoreErrors' $ do
-        cmd_ "umount" [mountpoint]
-        cmd_ "rmdir" [mountpoint]
-        cmd_ "rm -f" [out]
+  let (abortion :: IO ()) = do
+        ignoreErrors' $ cmd_ (EchoStderr False) "umount" [mountpoint]
+        ignoreErrors' $ cmd_ (EchoStderr False) "rmdir" [mountpoint]
+        ignoreErrors' $ cmd_ (EchoStderr False) "rm -f" [out]
 
   handle' abortion $ buildInitialImage config mountpoint out