Skip to content
Open
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions ocaml/xapi-storage-script/main.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1465,6 +1465,14 @@ module VDIImpl (M : META) = struct
>>>= (fun sr ->
clone ~dbg ~sr
~vdi:(Storage_interface.Vdi.string_of vdi_info.Storage_interface.vdi)
>>>= update_keys ~dbg ~sr ~key:_vdi_type_key
~value:
( match vdi_info.Storage_interface.ty with
| "" ->
None
| s ->
Some s
)
>>>= fun response -> return (vdi_of_volume response)
)
|> wrap
Expand Down