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/String.ml | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 src/Lib/String.ml

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

diff --git a/src/Lib/String.ml b/src/Lib/String.ml
deleted file mode 100644
index be16d0e..0000000
--- a/src/Lib/String.ml
+++ /dev/null
@@ -1,35 +0,0 @@
-let format_float precision f =
-  let str = Js.Float.toString f in
-  match Js.String.split "." str with
-    | [| a ; b |] -> a ^ "." ^ (Js.String.substring ~from:0 ~to_:precision b)
-    | _ -> str
-
-external btoa : string -> string = "btoa"
-  [@@bs.val] [@@bs.scope "window"]
-
-external atob : string -> string = "atob"
-  [@@bs.val] [@@bs.scope "window"]
-
-external unescape : string -> string = "unescape"
-  [@@bs.val]
-
-external escape : string -> string = "escape"
-  [@@bs.val]
-
-external encodeURIComponent : string -> string = "encodeURIComponent"
-  [@@bs.val]
-
-external decodeURIComponent : string -> string = "decodeURIComponent"
-  [@@bs.val]
-
-let encode str =
-  str
-    |> encodeURIComponent
-    |> unescape
-    |> btoa
-
-let decode str =
-  str
-    |> atob
-    |> escape
-    |> decodeURIComponent
-- 
cgit v1.2.3