👍 add binary_bytes driver

akabe · Aug 9, 2021 · d6c56dd · d6c56dd
1 parent f7b1299
commit d6c56dd
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/ppx/ppx_deriving_binary.ml b/src/ppx/ppx_deriving_binary.ml
@@ -39,3 +39,14 @@ let () =
               ~type_decl_str:(Encoder.type_decl_str ~deriver)
               ~type_decl_sig:Encoder.type_decl_sig
               ())
+
+let () =
+  let deriver = "binary_bytes" in
+  register (create "binary_bytes"
+              ~type_decl_str:(fun ~options ~path type_decls ->
+                  Encoder.type_decl_str ~deriver ~options ~path type_decls
+                  @ Decoder.type_decl_str ~deriver ~options ~path type_decls)
+              ~type_decl_sig:(fun ~options ~path type_decls ->
+                  Encoder.type_decl_sig ~options ~path type_decls
+                  @ Decoder.type_decl_sig ~options ~path type_decls)
+              ())