OCaml implementation of the Mozilla Public Suffix service
ocaml-publicsuffix: use %a + pp_error in IDN doc example
+2
-2
+2
-2
lib/publicsuffix.mli
+2
-2
lib/publicsuffix.mli
···
87
87
let () =
88
88
match Publicsuffix.registrable_domain psl_idn "www.食狮.com.cn" with
89
89
| Ok _ -> ()
90
-
| Error e -> Fmt.failwith "unicode IDN: %s" e
90
+
| Error e -> Fmt.failwith "unicode IDN: %a" Publicsuffix.pp_error e
91
91
92
92
let () =
93
93
match
94
94
Publicsuffix.registrable_domain psl_idn "www.xn--85x722f.com.cn"
95
95
with
96
96
| Ok _ -> ()
97
-
| Error e -> Fmt.failwith "punycode IDN: %s" e
97
+
| Error e -> Fmt.failwith "punycode IDN: %a" Publicsuffix.pp_error e
98
98
]}
99
99
100
100
{1 Trailing Dots}