From 889f4a144ff68ce1e10f7d94e1516e4f79062204 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Fri, 29 May 2020 21:46:17 -0400
Subject: fix

---
 fsmgr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fsmgr.hs')

diff --git a/fsmgr.hs b/fsmgr.hs
index b1469ba..1f5af37 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -56,7 +56,7 @@ buildRoot :: DiskImageConfig -> FilePath -> Action ()
 buildRoot config@DiskImageConfig{..} finalOut = do
   let out        = finalOut <.> "tmp"
       mountpoint = finalOut <.> "mnt"
-  cmd_ "sh -c" ["! mountpoint -q \"$0\" || umount \"$0\" ", mountpoint]
+  cmd_ "sh -c" ["if mountpoint -q \"$0\"; then umount \"$0\"; fi", mountpoint]
 
   let (abortion :: IO ()) = ignoreErrors' $ do
         cmd_ "umount" [mountpoint]
-- 
cgit v1.2.3