From 063d8ef9eaf874a941f4459e831057dd0a1b7ddd Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Jul 2022 21:55:41 +0200
Subject: Rewrite in TS

---
 src/Lib/File.ml | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 src/Lib/File.ml

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

diff --git a/src/Lib/File.ml b/src/Lib/File.ml
deleted file mode 100644
index d3597e7..0000000
--- a/src/Lib/File.ml
+++ /dev/null
@@ -1,21 +0,0 @@
-let download filename content =
-  let a =
-    H.a
-      [| HA.href ("data:text/plain;charset=utf-8," ^ URI.encode content)
-      ;  HA.download filename
-      ;  HA.style "display:none"
-      |]
-      [| |]
-  in
-  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