diff options
Diffstat (limited to 'fsmgr.hs')
-rw-r--r-- | fsmgr.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -141,10 +141,10 @@ buildRoot config@DiskImageConfig{..} finalOut = do | |||
141 | mountpoint = finalOut <.> "mnt" | 141 | mountpoint = finalOut <.> "mnt" |
142 | cmd_ "sh -c" ["if mountpoint -q \"$0\"; then umount \"$0\"; fi", mountpoint] | 142 | cmd_ "sh -c" ["if mountpoint -q \"$0\"; then umount \"$0\"; fi", mountpoint] |
143 | 143 | ||
144 | let (abortion :: IO ()) = ignoreErrors' $ do | 144 | let (abortion :: IO ()) = do |
145 | cmd_ "umount" [mountpoint] | 145 | ignoreErrors' $ cmd_ (EchoStderr False) "umount" [mountpoint] |
146 | cmd_ "rmdir" [mountpoint] | 146 | ignoreErrors' $ cmd_ (EchoStderr False) "rmdir" [mountpoint] |
147 | cmd_ "rm -f" [out] | 147 | ignoreErrors' $ cmd_ (EchoStderr False) "rm -f" [out] |
148 | 148 | ||
149 | handle' abortion $ buildInitialImage config mountpoint out | 149 | handle' abortion $ buildInitialImage config mountpoint out |
150 | 150 | ||