From 8625a2997ab98edc22eaf51de57ed705ddcaba61 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Tue, 11 Jan 2022 01:14:58 -0500 Subject: ignore more errors --- fsmgr.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3