diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-07-25 19:09:12 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-07-25 19:09:12 -0400 |
| commit | 4613a600688a536453329c5c17606c5bc3c69ba4 (patch) | |
| tree | a405f8453fc7a570cacc80a67dfcb97c4d7d6fca /src | |
| parent | 25173510cdf35f707ff78f0cf614bf31318790c9 (diff) | |
VBoxManage creates vmdk with locked down read mode
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/DiskImage.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |