Skip to content

Commit 5d93088

Browse files
committed
Remove duplicate Storage_migrate.stop impl
Signed-off-by: Vincent Liu <shuntian.liu2@cloud.com>
1 parent 9015a0b commit 5d93088

1 file changed

Lines changed: 1 addition & 7 deletions

File tree

ocaml/xapi/storage_migrate.ml

Lines changed: 1 addition & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -633,13 +633,7 @@ let start ~dbg ~sr ~vdi ~dp ~mirror_vm ~copy_vm ~url ~dest ~verify_dest =
633633
)
634634

635635
(* XXX: PR-1255: copy the xenopsd 'raise Exception' pattern *)
636-
let stop ~dbg ~id =
637-
try MigrateLocal.stop ~dbg ~id with
638-
| Storage_error (Backend_error (code, params))
639-
| Api_errors.Server_error (code, params) ->
640-
raise (Storage_error (Backend_error (code, params)))
641-
| e ->
642-
raise e
636+
let stop = MigrateLocal.stop
643637

644638
let list = MigrateLocal.list
645639

0 commit comments

Comments
 (0)