unikernel/duniverse/mirage-crypto/pk/common.ml

@@ -0,0 +1,5 @@
+let rec until p f = let r = f () in if p r then r else until p f
+
+let guard p err = if p then Ok () else Error err
+
+let ( let* ) = Result.bind