Remove trailing "=" from JS version of sha256_b64

038a6a4b · Stephane Glondu · f45ba5fd · 038a6a4b
Commit 038a6a4b authored Jun 12, 2014 by Stephane Glondu
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

src/platform/js/platform.ml src/platform/js/platform.ml +7 -2

No files found.
--- a/src/platform/js/platform.ml
+++ b/src/platform/js/platform.ml
@@ -30,8 +30,13 @@ let sha256_hex x =
    [| sha256 x |] |> Js.to_string

 let sha256_b64 x =
-  Js.Unsafe.meth_call sjcl "codec.base64.fromBits"
-    [| sha256 x |] |> Js.to_string
+  let raw =
+    Js.Unsafe.meth_call sjcl "codec.base64.fromBits"
+      [| sha256 x |] |> Js.to_string
+  in
+  match (try Some (String.index raw '=') with Not_found -> None) with
+  | Some i -> String.sub raw 0 i
+  | None -> raw

 let b64_encode_compact x = assert false