ocamlPackages.angstrom*: 0.13.0 -> 0.14.1
ocamlPackages.email_message: fix 0.12.0 version for angstrom 0.14
ocamlPackages.encore: 0.3 → 0.5
ocamlPackages.git{,-http,-unix}: 2.1.2 → 2.1.3
This commit is contained in:
@@ -533,6 +533,7 @@ rec {
|
||||
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";
|
||||
};
|
||||
|
||||
|
||||
@@ -0,0 +1,22 @@
|
||||
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)"
|
||||
Reference in New Issue
Block a user