Add lazy support (closes #5)

sim642 · Aug 25, 2024 · 9d30a6f · 9d30a6f
1 parent c916f11
commit 9d30a6f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,6 @@
+## Unreleased
+* Add `lazy` support (#5).
+
 ## 0.1.2
 * Add inline record support (#1).
 * Add `float` support (#2).

diff --git a/src/ppx_deriving_hash.ml b/src/ppx_deriving_hash.ml
@@ -55,6 +55,9 @@ let rec expr ~loc ~quoter ct =
       [%expr List.fold_left (fun a b -> [%e hash_reduce2 ~loc [%expr a] [%expr [%e expr ~loc a] b]]) [%e hash_empty ~loc]]
     | [%type: [%t? a] array] ->
       [%expr Array.fold_left (fun a b -> [%e hash_reduce2 ~loc [%expr a] [%expr [%e expr ~loc a] b]]) [%e hash_empty ~loc]]
+    | [%type: [%t? a] lazy_t]
+    | [%type: [%t? a] Lazy.t] ->
+      [%expr fun (lazy x) -> [%e expr ~loc a] x]
     | {ptyp_desc = Ptyp_constr ({txt = lid; loc}, args); _} ->
       let ident = pexp_ident ~loc {loc; txt = Ppx_deriving.mangle_lid mangle_affix lid} in
       let ident = Ppx_deriving.quote ~quoter ident in