Displaying 1 result from an estimated 1 matches for "5649b02".
Did you mean:
564972
2016 Jul 19
2
[PATCH v2 1/2] v2v: register also aliases of input/output modules
...ss input_disk input_format disk = object
end
let input_disk = new input_disk
-let () = Modules_list.register_input_module "disk"
+let () = Modules_list.register_input_module ~alias:"local" "disk"
diff --git a/v2v/modules_list.ml b/v2v/modules_list.ml
index 36a08c0..5649b02 100644
--- a/v2v/modules_list.ml
+++ b/v2v/modules_list.ml
@@ -21,11 +21,28 @@ open Common_utils
let input_modules = ref []
and output_modules = ref []
-let register_input_module name = push_front name input_modules
-and register_output_module name = push_front name output_modules
+let rec regi...