[Libguestfs] [PATCH 3/6] generator: Move defaults to Types module.

[Richard W.M. Jones]

Just code motion in preparation for the following commits.
---
 generator/actions.ml | 17 -----------------
 generator/types.ml   | 17 +++++++++++++++++
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/generator/actions.ml b/generator/actions.ml
index afa915d..4418e48 100644
--- a/generator/actions.ml
+++ b/generator/actions.ml
@@ -22,23 +22,6 @@ open Common_utils
 open Types
 open Utils
 
-(* Default settings for all action fields.  So we copy and override
- * this struct by writing '{ defaults with name = &c }'
- *)
-let defaults = { name = "";
-                 added = (-1,-1,-1);
-                 style = RErr, [], []; proc_nr = None;
-                 tests = []; test_excuse = "";
-                 shortdesc = ""; longdesc = "";
-                 protocol_limit_warning = false; fish_alias = [];
-                 fish_output = None; visibility = VPublic;
-                 deprecated_by = None; optional = None;
-                 progress = false; camel_name = "";
-                 cancellable = false; config_only = false;
-                 once_had_no_optargs = false; blocking = true; wrapper = true;
-                 c_name = ""; c_function = ""; c_optarg_prefix = "";
-                 non_c_aliases = [] }
-
 (* These test functions are used in the language binding tests. *)
 
 let test_all_args = [
diff --git a/generator/types.ml b/generator/types.ml
index b74f645..fd9f215 100644
--- a/generator/types.ml
+++ b/generator/types.ml
@@ -397,6 +397,23 @@ type action = {
                                      generated for this function *)
 }
 
+(* Default settings for all action fields.  So we copy and override
+ * the action struct by writing '{ defaults with name = ... }'.
+ *)
+let defaults = { name = "";
+                 added = (-1,-1,-1);
+                 style = RErr, [], []; proc_nr = None;
+                 tests = []; test_excuse = "";
+                 shortdesc = ""; longdesc = "";
+                 protocol_limit_warning = false; fish_alias = [];
+                 fish_output = None; visibility = VPublic;
+                 deprecated_by = None; optional = None;
+                 progress = false; camel_name = "";
+                 cancellable = false; config_only = false;
+                 once_had_no_optargs = false; blocking = true; wrapper = true;
+                 c_name = ""; c_function = ""; c_optarg_prefix = "";
+                 non_c_aliases = [] }
+
 (* Field types for structures. *)
 type field =
   | FChar			(* C 'char' (really, a 7 bit byte). *)
-- 
2.10.2