Revert "debugging" (partially)

This reverts commit 135be7235bc04af43ca7e3749096a4d1e00c3823.

1 files changed, 2 insertions, 2 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 770c8bc..718c88d 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -45,7 +45,7 @@ buildRoot :: DiskImageConfig -> FilePath -> Action ()
 buildRoot config@DiskImageConfig{..} finalOut = do
   let out        = finalOut <.> "tmp"
       mountpoint = finalOut <.> "mnt"
-  cmd_ "sh -xc" ["! mountpoint \"$0\" || umount \"$0\" ", mountpoint]
+  cmd_ "sh -c" ["! mountpoint -q \"$0\" || umount \"$0\" ", mountpoint]
 
   let (abortion :: IO ()) = ignoreErrors' $ do
         cmd_ "umount" [mountpoint]
@@ -224,7 +224,7 @@ chrootImage target args =
 
 shakeBuildOneImage :: FilePath -> IO ()
 shakeBuildOneImage target =
-  shake shakeOptions {shakeFiles = "_build", shakeVerbosity = Loud} $ do
+  shake shakeOptions {shakeFiles = "_build"} $ do
     want [target -<.> "btrfs"]
     shakeRules