forked from mirrors/nixpkgs
23 lines
1.1 KiB
Diff
23 lines
1.1 KiB
Diff
|
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)"
|