Create a module for hash sum helpers

Author: dmbaturin

src/cache.ml

@@ -19,10 +19,7 @@ open Defaults
    and also because almost no one uses it — and I like to be contrarian,
    at least when it doesn't harm anyone else. ;)
  *)
-let hash_sum s =
-  let ctx = Digestif.BLAKE2S.empty in
-  let ctx = Digestif.BLAKE2S.feed_string ctx s in
-  Digestif.BLAKE2S.get ctx |> Digestif.BLAKE2S.to_hex
+let hash_sum = Hash.blake2s
 
 let read_file path =
   try Soup.read_file path

src/helpers/hash.ml

@@ -0,0 +1,11 @@
+(* Simple wrappers for hash functions from Digestif
+   that just take a string and return a hex digest.
+ *)
+
+let blake2s s =
+  let ctx = Digestif.BLAKE2S.empty in
+  let ctx = Digestif.BLAKE2S.feed_string ctx s in
+  Digestif.BLAKE2S.get ctx |> Digestif.BLAKE2S.to_hex
+
+
+