+ DenominationKeyAnnouncementPS.bin

src/util.ml

@@ -20,3 +20,11 @@ let ptime_add_span_exn p span =
   match Ptime.add_span p span with
   | None -> Fmt.failwith "Ptime.add_span: not in the range [min;max]"
   | Some v -> v
+
+(* -- *** -- *)
+
+(* TODO bin
+   - no [Bin.of_string] ? *)
+let bin_of_string bin s =
+  let v = Bin.decode bin s (ref 0) in
+  Ok v