diff --git a/ocaml/xapi/storage_proxy.ml b/ocaml/xapi/storage_proxy.ml
deleted file mode 100644
index 6121f83f7e3..00000000000
--- a/ocaml/xapi/storage_proxy.ml
+++ /dev/null
@@ -1,112 +0,0 @@
-(*
- * Copyright (C) 2011 Citrix Systems Inc.
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as published
- * by the Free Software Foundation; version 2.1 only. with the special
- * exception on linking described in file LICENSE.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU Lesser General Public License for more details.
- *)
-
-(* This file should be auto-generated from storage_interface.
-   Corrollary: don't add anything which can't be auto-generated from storage_interface! *)
-
-open Storage_interface
-
-module type RPC = sig
-  val rpc : Rpc.call -> Rpc.response
-end
-
-module Proxy = functor(RPC: RPC) -> struct
-  type context = Smint.request
-
-  module Client = Client(RPC)
-
-  module Query = struct
-    let query _ = Client.Query.query
-    let diagnostics _ = Client.Query.diagnostics
-  end
-  module DP = struct
-    let create _ = Client.DP.create
-    let destroy _ = Client.DP.destroy
-    let diagnostics _ = Client.DP.diagnostics
-    let attach_info _ = Client.DP.attach_info
-    let stat_vdi _ = Client.DP.stat_vdi
-  end
-  module SR = struct
-    let probe _ = Client.SR.probe
-    let create _ = Client.SR.create
-    let set_name_label _ = Client.SR.set_name_label
-    let set_name_description _ = Client.SR.set_name_description
-    let attach _ = Client.SR.attach
-    let detach _ = Client.SR.detach
-    let reset _ = Client.SR.reset
-    let destroy _ = Client.SR.destroy
-    let scan _ = Client.SR.scan
-    let stat _ = Client.SR.stat
-    let list _ = Client.SR.list
-    let update_snapshot_info_src _ = Client.SR.update_snapshot_info_src
-    let update_snapshot_info_dest _ = Client.SR.update_snapshot_info_dest
-  end
-  module VDI = struct
-    let epoch_begin _ = Client.VDI.epoch_begin
-    let attach _ = Client.VDI.attach
-    let activate _ = Client.VDI.activate
-    let deactivate _ = Client.VDI.deactivate
-    let detach _ = Client.VDI.detach
-    let epoch_end _ = Client.VDI.epoch_end
-
-    let create _ = Client.VDI.create
-    let set_name_label _ = Client.VDI.set_name_label
-    let set_name_description _ = Client.VDI.set_name_description
-    let snapshot _ = Client.VDI.snapshot
-    let clone _ = Client.VDI.clone
-    let destroy _ = Client.VDI.destroy
-    let resize _ = Client.VDI.resize
-    let stat _ = Client.VDI.stat
-    let introduce _ = Client.VDI.introduce
-    let set_persistent _ = Client.VDI.set_persistent
-    let get_by_name _ = Client.VDI.get_by_name
-    let set_content_id _ = Client.VDI.set_content_id
-    let similar_content _ = Client.VDI.similar_content
-    let compose _ = Client.VDI.compose
-    let add_to_sm_config _ = Client.VDI.add_to_sm_config
-    let remove_from_sm_config _ = Client.VDI.remove_from_sm_config
-    let get_url _ = Client.VDI.get_url
-  end
-
-  let get_by_name _ = Client.get_by_name
-
-  module Policy = struct
-    let get_backend_vm _ = Client.Policy.get_backend_vm
-  end
-
-  module DATA = struct
-    let copy_into _ = Client.DATA.copy_into
-    let copy _ = Client.DATA.copy
-    module MIRROR = struct
-      let start _ = Client.DATA.MIRROR.start
-      let stop _ = Client.DATA.MIRROR.stop
-      let stat _ = Client.DATA.MIRROR.stat
-      let receive_start _ = Client.DATA.MIRROR.receive_start
-      let receive_finalize _ = Client.DATA.MIRROR.receive_finalize
-      let receive_cancel _ = Client.DATA.MIRROR.receive_cancel
-      let list _ = Client.DATA.MIRROR.list
-    end
-  end
-
-  module TASK = struct
-    let stat _ = Client.TASK.stat
-    let cancel _ = Client.TASK.cancel
-    let destroy _ = Client.TASK.destroy
-    let list _ = Client.TASK.list
-  end
-
-  module UPDATES = struct
-    let get _ = Client.UPDATES.get
-  end
-end