diff options
Diffstat (limited to 'fsmgr.hs')
-rw-r--r-- | fsmgr.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -478,7 +478,10 @@ ioUnless :: MonadIO m => IO Bool -> m () -> m () | |||
478 | ioUnless test act = liftIO test >>= (`unless` act) | 478 | ioUnless test act = liftIO test >>= (`unless` act) |
479 | 479 | ||
480 | needSubvolume :: FilePath -> Action () | 480 | needSubvolume :: FilePath -> Action () |
481 | needSubvolume path = ioUnless (IO.doesDirectoryExist path) $ cmd_ "btrfs subvolume create" [path] | 481 | needSubvolume path = ioUnless (IO.doesDirectoryExist path) $ do |
482 | cmd_ "btrfs subvolume create" [path] | ||
483 | cmd_ "chmod" ["--reference="++path++"/.."] [path] | ||
484 | cmd_ "chown" ["--reference="++path++"/.."] [path] | ||
482 | 485 | ||
483 | shakeRules :: Rules () | 486 | shakeRules :: Rules () |
484 | shakeRules = do | 487 | shakeRules = do |