maintenance: whitespace

Signed-off-by: Pau Ruiz Safont <[email protected]>

Author: psafont

xen/xenops_interface.ml

@@ -214,7 +214,7 @@ module Vgpu = struct
 
   type id = string * string [@@deriving rpcty]
 
-	let pci_default = Pci.{domain= 0; bus= 0; dev= 0; fn= 0}
+    let pci_default = Pci.{domain= 0; bus= 0; dev= 0; fn= 0}
   type t =
     { id: id [@default "", ""]
     ; position: int [@default 0]
@@ -479,7 +479,7 @@ module XenopsAPI (R : RPC) = struct
   let get_diagnostics =
     let result_p = Param.mk Rpc.Types.string in
     declare "get_diagnostics"
-		  ["Get diagnostics information from the backend"]
+          ["Get diagnostics information from the backend"]
       (debug_info_p @-> unit_p @-> returning result_p err)
 
   module TASK = struct

xen/xenops_types.ml

@@ -41,7 +41,7 @@ module Nvram_uefi_variables = struct
   type onboot =
     | Persist
     | Reset
-    [@@deriving rpcty, sexp]
+  [@@deriving rpcty, sexp]
 
   type t = {
     on_boot: onboot [@default Persist];
@@ -87,7 +87,7 @@ module Vm = struct
     vnc_ip: string option [@default None];
     pci_emulations: string list [@default []];
     pci_passthrough: bool [@default false];
-    boot_order: string [@default ""]; 
+    boot_order: string [@default ""];
     qemu_disk_cmdline: bool [@default false];
     qemu_stubdom: bool [@default false];
     firmware: firmware_type [@default default_firmware];