summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2017-07-25 19:09:12 -0400
committerJoey Hess2017-07-25 19:09:12 -0400
commit4613a600688a536453329c5c17606c5bc3c69ba4 (patch)
treea405f8453fc7a570cacc80a67dfcb97c4d7d6fca /src/Propellor/Property/DiskImage.hs
parent25173510cdf35f707ff78f0cf614bf31318790c9 (diff)
VBoxManage creates vmdk with locked down read mode
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-rw-r--r--src/Propellor/Property/DiskImage.hs2
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