diff options
author | Andrew Cady <d@jerkface.net> | 2020-05-29 21:46:17 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2020-05-29 21:46:17 -0400 |
commit | 889f4a144ff68ce1e10f7d94e1516e4f79062204 (patch) | |
tree | 8fad7fd7c30bd8231eaa9416c3ea8fc8772b9daa | |
parent | 7f5f3687cda9684bb53fa4454a395dd7db860331 (diff) |
fix
-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] |