new btrfs subvolume gets ownership/permissions from its parent dir

1 files changed, 4 insertions, 1 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 8036734..f3d7af0 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -478,7 +478,10 @@ ioUnless :: MonadIO m => IO Bool -> m () -> m ()
 ioUnless test act = liftIO test >>= (`unless` act)
 
 needSubvolume :: FilePath -> Action ()
-needSubvolume path = ioUnless (IO.doesDirectoryExist path) $ cmd_ "btrfs subvolume create" [path]
+needSubvolume path = ioUnless (IO.doesDirectoryExist path) $ do
+  cmd_ "btrfs subvolume create" [path]
+  cmd_ "chmod" ["--reference="++path++"/.."] [path]
+  cmd_ "chown" ["--reference="++path++"/.."] [path]
 
 shakeRules :: Rules ()
 shakeRules = do