style

1 files changed, 4 insertions, 1 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 796863d..fa114ec 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -88,7 +88,7 @@ buildRoot DiskImageConfig{..} finalOut = do
     {- 5. create a backup snapshot -}
     cmd_ "umount" [mountpoint]
     cmd_ "mount -t btrfs -o subvol=/" [out, mountpoint]
-    flip actionCatch (\(SomeException _) -> return ()) $ cmd_ "btrfs subvolume delete" [mountpoint </> "root~orig"]
+    ignoreErrors $ cmd_ "btrfs subvolume delete" [mountpoint </> "root~orig"]
     cmd_ "btrfs subvolume snapshot -r" [mountpoint </> "root", mountpoint </> "root~orig"]
 
     -- cleanup
@@ -97,6 +97,9 @@ buildRoot DiskImageConfig{..} finalOut = do
     cmd_ "btrfstune -S1" [out]
     cmd_ "mv" [out, finalOut]
 
+ignoreErrors :: Action () -> Action ()
+ignoreErrors = flip actionCatch (\(SomeException _) -> return ())
+
 partitionPackages :: [String] -> ([String], [String])
 partitionPackages = partition (elem '/')