Rewrite in TSmain

1 files changed, 0 insertions, 35 deletions

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