Merge pull request #262 from mirage/new-entropy-sig

Change mirage tool to apply Entropy_unix functor
mirage · Jul 7, 2014 · fc8d2c3 · fc8d2c3
2 parents ae3c966 + 75eab41
commit fc8d2c3
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/lib/mirage.ml b/lib/mirage.ml
@@ -436,10 +436,12 @@ module Entropy = struct
   let name _ =
     "entropy"
 
-  let module_name () =
+  let module_name () = "Entropy"
+
+  let construction () =
     match !mode with
-    | `Unix -> "Entropy_unix"
-    | `Xen -> "Entropy_xen"
+    | `Unix -> "Entropy_unix.Make (OS.Time)"
+    | `Xen  -> "Entropy_xen"
 
   let packages () =
     match !mode with
@@ -449,6 +451,8 @@ module Entropy = struct
   let libraries = packages
 
   let configure t =
+    append_main "module %s = %s" (module_name t) (construction t) ;
+    newline_main () ;
     append_main "let %s () =" (name t);
     append_main "  %s.connect ()" (module_name t);
     newline_main ()