ocamlPackages.email_message: remove at 0.11.0

This commit is contained in:
Vincent Laporte 2020-11-01 18:40:20 +01:00 committed by ehmry
parent 255f45ea20
commit d050e5e399
2 changed files with 0 additions and 30 deletions

View file

@ -529,14 +529,6 @@ rec {
meta.description = "Writing Emacs plugin in OCaml";
};
email_message = janePackage {
pname = "email_message";
hash = "131jd72k4s8cdbgg6gyg7w5v8mphdlvdx4fgvh8d9a1m7kkvbxfg";
propagatedBuildInputs = [ async angstrom core_extended cryptokit magic-mime ounit ];
patches = [ ./email-message-angstrom-0.14.patch ];
meta.description = "E-mail message parser";
};
incremental_kernel = janePackage {
version = "0.11.1";
pname = "incremental_kernel";

View file

@ -1,22 +0,0 @@
diff --git a/email_address/src/email_address.ml b/email_address/src/email_address.ml
index 7470273..d070465 100644
--- a/email_address/src/email_address.ml
+++ b/email_address/src/email_address.ml
@@ -38,7 +38,7 @@ module Stable = struct
let of_string ?default_domain input_str =
let open Core_kernel in
let open! Int.Replace_polymorphic_compare in
- match Angstrom.parse_string Email_address_parser_stable_v1.email_only input_str with
+ match Angstrom.parse_string ~consume:Prefix Email_address_parser_stable_v1.email_only input_str with
| Error error ->
Or_error.error_s [%message
"Failed to parse email address"
@@ -104,7 +104,7 @@ module T = Stable.V1.With_comparator
include T
let list_of_string ?default_domain input_str =
- match Angstrom.parse_string Email_address_parser_stable_v1.email_list_only input_str with
+ match Angstrom.parse_string ~consume:Prefix Email_address_parser_stable_v1.email_list_only input_str with
| Error error ->
Or_error.error_s [%message
"Failed to parse email address(es)"