repr: derive custom ~pre_hash from ~encode_bin if passed

mirage · Oct 11, 2021 · 990f313 · 990f313
1 parent 24e93db
commit 990f313
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/repr/type.ml b/src/repr/type.ml
@@ -349,7 +349,12 @@ let like ?pp ?of_string ?json ?bin ?unboxed_bin ?equal ?compare ?short_hash
   and unboxed_bin = to_impl unboxed_bin
   and compare = to_impl compare
   and short_hash = to_impl short_hash
-  and pre_hash = to_impl pre_hash in
+  and pre_hash =
+    match pre_hash with
+    | Some x -> Custom x
+    | None -> (
+        match bin with Some (x, _, _) -> Custom x | None -> Structural)
+  in
   partially_abstract ~pp ~json ~of_string ~bin ~unboxed_bin ~equal ~compare
     ~short_hash ~pre_hash t