diff options
-rw-r--r-- | fsmgr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -56,7 +56,7 @@ buildRoot :: DiskImageConfig -> FilePath -> Action () | |||
56 | buildRoot config@DiskImageConfig{..} finalOut = do | 56 | buildRoot config@DiskImageConfig{..} finalOut = do |
57 | let out = finalOut <.> "tmp" | 57 | let out = finalOut <.> "tmp" |
58 | mountpoint = finalOut <.> "mnt" | 58 | mountpoint = finalOut <.> "mnt" |
59 | cmd_ "sh -c" ["! mountpoint -q \"$0\" || umount \"$0\" ", mountpoint] | 59 | cmd_ "sh -c" ["if mountpoint -q \"$0\"; then umount \"$0\"; fi", mountpoint] |
60 | 60 | ||
61 | let (abortion :: IO ()) = ignoreErrors' $ do | 61 | let (abortion :: IO ()) = ignoreErrors' $ do |
62 | cmd_ "umount" [mountpoint] | 62 | cmd_ "umount" [mountpoint] |