Use Emotion_hash.Hash.make

packages/emotion-hash/_mocked-hash-js/dune

@@ -1,9 +0,0 @@
-(melange.emit
- (target dist)
- (alias runtest)
- (modules hash_js)
- (runtime_deps package.json)
- (promote (until-clean))
- (module_systems
-  (commonjs js))
- (libraries hash))

packages/emotion/native/dune

@@ -6,7 +6,8 @@
  (libraries
   server-reason-react.js
   server-reason-react.belt
-  styled-ppx.css_native)
+  styled-ppx.css_native
+  styled-ppx.emotion-hash)
  (wrapped false)
  (preprocess
   (pps server-reason-react.pipe_first_ppx)))

packages/emotion/native/shared/Css.ml

@@ -2,6 +2,7 @@ include Css_native.Css_Colors
 include Css_native.Css_Legacy_Core
 module Core = Css_native.Css_Legacy_Core
 
+
 module Autoprefixer = struct
   (* Implementation of stylis autoprefixer https://github.com/thysultan/stylis *)
   (* This autoprefix works with ">1%, last 4 versions, Firefox ESR, not ie < 9, not dead" from browserlist and not so precise as stylis implementation *)
@@ -264,18 +265,18 @@ let style (styles : rule list) =
   match List.find_map is_label styles with
     | None ->
       let prefix = "css" in
-      let hash = Hash.default (rules_to_string styles) in
+      let hash = Emotion_hash.Hash.make (rules_to_string styles) in
       append (Printf.sprintf "%s-%s" prefix hash) styles;
       hash
     | Some label ->
       let prefix = "css" in
-      let hash = Hash.default (rules_to_string styles) in
+      let hash = Emotion_hash.Hash.make (rules_to_string styles) in
       append (Printf.sprintf "%s-%s-%s" prefix hash label) styles;
       hash
 
 let style_debug (styles : rule list) =
   print_endline (rules_to_string styles);
-  let hash = Hash.default (rules_to_string styles) |> String.cat "css-" in
+  let hash = Emotion_hash.Hash.make (rules_to_string styles) |> String.cat "css-" in
   append hash styles;
   hash
 

packages/emotion/native/shared/CssJs.ml

@@ -268,18 +268,18 @@ let style (styles : rule array) =
   match Array.find_map is_label styles with
     | None ->
       let prefix = "css" in
-      let hash = Hash.default (rules_to_string styles) in
+      let hash = Emotion_hash.Hash.make (rules_to_string styles) in
       append (Printf.sprintf "%s-%s" prefix hash) styles;
       hash
     | Some label ->
       let prefix = "css" in
-      let hash = Hash.default (rules_to_string styles) in
+      let hash = Emotion_hash.Hash.make (rules_to_string styles) in
       append (Printf.sprintf "%s-%s-%s" prefix hash label) styles;
       hash
 
 let style_debug (styles : rule array) =
   print_endline (rules_to_string styles);
-  let hash = Hash.default (rules_to_string styles) |> String.cat "css-" in
+  let hash = Emotion_hash.Hash.make (rules_to_string styles) |> String.cat "css-" in
   append hash styles;
   hash