From 225068497c5fd41da12030a6bbf58a0fc9c294d0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 9 Aug 2020 14:44:02 +0200
Subject: Import from CSV

---
 src/Lib/File.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Lib/File.ml')

diff --git a/src/Lib/File.ml b/src/Lib/File.ml
index 0089001..d3597e7 100644
--- a/src/Lib/File.ml
+++ b/src/Lib/File.ml
@@ -10,3 +10,12 @@ let download filename content =
   let () = Element.append_child Document.body a in
   let () = Element.click a in
   Element.remove_child Document.body a
+
+external reader : unit -> Dom.element = "FileReader"
+  [@@bs.new]
+
+external read_as_text : Dom.element -> string -> unit = "readAsText"
+  [@@bs.send]
+
+external result : Dom.element -> string = "result"
+  [@@bs.get]
-- 
cgit v1.2.3