Permalink
Browse files

Accept multiple secrets

  • Loading branch information...
1 parent 3fe6408 commit 128bc70db7bc5f02fe1bdd621f581f2236a57428 @andrenth committed Jul 26, 2012
Showing with 3 additions and 3 deletions.
  1. +2 −2 lib/SRS.ml
  2. +1 −1 lib/SRS.mli
View
@@ -21,9 +21,9 @@ external get_no_forward : t -> bool = "caml_srs_get_noforward"
external set_no_reverse : t -> bool -> unit = "caml_srs_set_noreverse"
external get_no_reverse : t -> bool = "caml_srs_get_noreverse"
-let make secret max_age hash_len sep =
+let make secrets max_age hash_len sep =
let srs = create () in
set_separator srs sep;
set_hash_length srs hash_len;
- add_secret srs secret;
+ List.iter (add_secret srs) secrets;
srs
View
@@ -19,4 +19,4 @@ val get_no_forward : t -> bool
val set_no_reverse : t -> bool -> unit
val get_no_reverse : t -> bool
-val make : string -> int -> int -> char -> t
+val make : string list -> int -> int -> char -> t

0 comments on commit 128bc70

Please sign in to comment.