summaryrefslogtreecommitdiff
path: root/doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment
diff options
context:
space:
mode:
Diffstat (limited to 'doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment')
-rw-r--r--doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment24
1 files changed, 24 insertions, 0 deletions
diff --git a/doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment b/doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment
new file mode 100644
index 00000000..27b70a57
--- /dev/null
+++ b/doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment
@@ -0,0 +1,24 @@
+[[!comment format=mdwn
+ username="picca"
+ avatar="http://cdn.libravatar.org/avatar/7e61c80d28018b10d31f6db7dddb864c"
+ subject="comment 4"
+ date="2017-08-22T08:42:35Z"
+ content="""
+ vmdkBuiltFor :: FilePath -> RevertableProperty DebianLike UnixLike
+ vmdkBuiltFor diskimage = (setup <!> cleanup)
+ `describe` (vmdkfile ++ \" built\")
+ where
+ vmdkfile = diskimage ++ \".vmdk\"
+ setup = cmdProperty \"qemu-img\"
+ [ \"convert\"
+ , \"-O\", \"vmdk\"
+ , diskimage, vmdkfile
+ ]
+ `changesFile` vmdkfile
+ `onChange` File.mode vmdkfile (combineModes (ownerWriteMode : readModes))
+ `requires` Apt.installed [\"qemu-utils\"]
+ `requires` File.notPresent vmdkfile
+ cleanup = File.notPresent vmdkfile
+
+seems to work :))
+"""]]