From 4613a600688a536453329c5c17606c5bc3c69ba4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Jul 2017 19:09:12 -0400 Subject: VBoxManage creates vmdk with locked down read mode --- src/Propellor/Property/DiskImage.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Propellor/Property/DiskImage.hs') diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs index 9289aad3..5c61f73c 100644 --- a/src/Propellor/Property/DiskImage.hs +++ b/src/Propellor/Property/DiskImage.hs @@ -34,6 +34,7 @@ import Propellor.Types.Info import Propellor.Types.Bootloader import Propellor.Container import Utility.Path +import Utility.FileMode import Data.List (isPrefixOf, isInfixOf, sortBy, unzip4) import Data.Function (on) @@ -423,5 +424,6 @@ vmdkBuiltFor diskimage = (setup cleanup) , "-rawdisk", diskimage ] `changesFile` vmdkfile + `onChange` File.mode vmdkfile (combineModes (ownerWriteMode : readModes)) `requires` Apt.installed ["virtualbox"] cleanup = File.notPresent vmdkfile -- cgit v1.2.3