Merge pull request #11 from anmonteiro/anmonteiro/rke-unsafe-bigarray

Add `unsafe_bigarray` to `Rke.Weighted`
mirage · Jul 28, 2020 · 0b3d570 · 0b3d570
2 parents 79037d1 + 3b912d1
commit 0b3d570
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/lib/rke.ml b/lib/rke.ml
@@ -390,4 +390,6 @@ module Weighted = struct
   let clear q =
     q.r <- 0 ;
     q.w <- 0
+
+  let unsafe_bigarray {v; _} = v
 end
diff --git a/lib/sigs.ml b/lib/sigs.ml
@@ -361,6 +361,8 @@ module Weighted = struct
     (** Human-readable pretty-printer of {!t}. *)
 
     (** / **)
+    val unsafe_bigarray :
+      ('a, 'b) t -> ('a, 'b, Bigarray_compat.c_layout) Bigarray_compat.Array1.t
 
     val from : ('a, 'b, Bigarray_compat.c_layout) Bigarray_compat.Array1.t -> ('a, 'b) t
   end