fix nocrypto_entropy initialisation

mirage · Oct 2, 2016 · c3c7eed · c3c7eed
1 parent 67e0df0
commit c3c7eed
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/mirage.ml b/lib/mirage.ml
@@ -152,11 +152,9 @@ let nocrypto = impl @@ object
 
     method configure _ = R.ok (enable_entropy ())
     method connect i _ _ =
-      let s = match Key.(get (Info.context i) target) with
+      match Key.(get (Info.context i) target) with
         | `Xen | `Virtio | `Ukvm -> "Nocrypto_entropy_mirage.initialize ()"
         | `Unix | `MacOSX -> "Nocrypto_entropy_lwt.initialize ()"
-      in
-      Fmt.strf "%s >|= fun x -> `Ok x" s
 
   end