Language correction.

Signed-off-by: Konstantina Chremmou <[email protected]>

Author: Konstantina Chremmou

ocaml/idl/ocaml_backend/gen_db_actions.ml

@@ -448,7 +448,7 @@ let db_action api : O.Module.t =
 (** Generate a signature for the Server.Make functor. It should have one
     field per member in the user-facing API (not the special full 'DB api')
     which has no custom action. The signature will be smaller than the
-    db_actions signature but the db_actions module will be compatable with it *)
+    db_actions signature but the db_actions module will be compatible with it *)
 let make_db_defaults_api = Dm_api.filter (fun _ -> true) (fun _ -> true)
     (fun x -> not(Gen_empty_custom.operation_requires_side_effect x))
 

ocaml/xapi/import.ml

@@ -1553,7 +1553,7 @@ let metadata_handler (req: Request.t) s _ =
               Tar_unix.Archive.skip s (Tar_unix.Header.length * 2);
 
               let header = header_of_xmlrpc metadata in
-              assert_compatable ~__context header.version;
+              assert_compatible ~__context header.version;
               if full_restore then assert_can_restore_backup ~__context rpc session_id header;
 
               with_error_handling (fun () ->
@@ -1597,7 +1597,7 @@ let stream_import __context rpc session_id s content_length refresh_session conf
          else begin
            debug "importing new style VM";
            let header = header_of_xmlrpc metadata in
-           assert_compatable ~__context header.version;
+           assert_compatible ~__context header.version;
            if config.full_restore then assert_can_restore_backup ~__context rpc session_id header;
 
            (* objects created here: *)

ocaml/xapi/importexport.ml

@@ -79,7 +79,7 @@ let this_version __context =
 
 (** Raises an exception if a prospective import cannot be handled by this code.
     This will get complicated over time... *)
-let assert_compatable ~__context other_version =
+let assert_compatible ~__context other_version =
   let this_version = this_version __context in
   let error() =
     error "Import version is incompatible";