summaryrefslogtreecommitdiff
path: root/doc/forum/DiskImage_creation_does_not_work_on_my_system/comment_4_fc50b46606eacf59e5db227760ce38ab._comment
blob: 27b70a57bfab78846a63f524f0e9633de1a0266e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 :))
"""]]