[[!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 :))
"""]]
