Update common library

1 files changed, 13 insertions, 6 deletions

diff --git a/lib/elements/transfert.ml b/lib/elements/transfert.ml
index f324509..3001e32 100755
--- a/lib/elements/transfert.ml
+++ b/lib/elements/transfert.ml
@@ -1,5 +1,15 @@
 open Brr
 
+let send_raw
+  : filename:Jstr.t -> Jstr.t -> unit
+  = fun ~filename data ->
+    (* Create the link to download the the element, and simulate a click on it *)
+    let a = El.a
+        ~at:At.[ href Jv.Id.(of_jv @@ to_jv data)
+               ; v (Jstr.v "download") filename ]
+        [] in
+    El.click a
+
 (** Send a file to the user. *)
 let send
   : mime_type:Jstr.t -> filename:Jstr.t -> Jstr.t -> unit
@@ -16,9 +26,6 @@ let send
          ; base64data
         |] in
 
-    (* Create the link to download the the element, and simulate a click on it *)
-    let a = El.a
-        ~at:At.[ href Jv.Id.(of_jv @@ to_jv data)
-               ; v (Jstr.v "download") filename ]
-        [] in
-    El.click a
+    send_raw
+      ~filename
+      data