support r14/15 crypto

erlware · May 24, 2014 · 3121c89 · 3121c89
1 parent 73f21ee
commit 3121c89
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/rebar.config b/rebar.config
@@ -10,6 +10,7 @@
 %% Compiler Options ============================================================
 {erl_opts,
  [{platform_define, "^[0-9]+", namespaced_types},
+  {platform_define, "^R1[4|5]", deprecated_crypto},
   debug_info,
   warnings_as_errors]}.
 

diff --git a/src/ec_file.erl b/src/ec_file.erl
@@ -94,9 +94,15 @@ md5sum(Value) ->
 
 %% @doc return an sha1sum checksum string or a binary. Same as unix utility of
 %%      same name.
+-ifdef(deprecated_crypto).
 -spec sha1sum(string() | binary()) -> string().
-sha1sum(Value) ->
+sha1sum(Value) ->  
+    hex(binary_to_list(crypto:sha(Value))).
+-else.
+-spec sha1sum(string() | binary()) -> string().
+sha1sum(Value) ->  
     hex(binary_to_list(crypto:hash(sha, Value))).
+-endif.
 
 %% @doc delete a file. Use the recursive option for directories.
 %% <pre>