Merge pull request #48 from reynir/hide-internals

Hide alphabet internals
mirage · Feb 8, 2021 · 9af342c · 9af342c
2 parents 2c5d85d + 1414e51
commit 9af342c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/base64.ml b/src/base64.ml
@@ -57,7 +57,8 @@ let make_alphabet alphabet =
 
 let length_alphabet { emap; _ } = Array.length emap
 
-let alphabet { emap; _ } = emap
+let alphabet { emap; _ } =
+  String.init (Array.length emap) (fun i -> Char.chr emap.(i))
 
 let default_alphabet =
   make_alphabet

diff --git a/src/base64.mli b/src/base64.mli
@@ -45,7 +45,7 @@ val make_alphabet : string -> alphabet
 val length_alphabet : alphabet -> int
 (** Returns length of the alphabet, should be 64. *)
 
-val alphabet : alphabet -> int array
+val alphabet : alphabet -> string
 (** Returns the alphabet. *)
 
 val decode_exn :