From 0d1f9ff76aa6df3f17edd2d73c76ab444fec8528 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 2 Jan 2017 17:56:04 +0100 Subject: Corrected some issues with odf documents --- UTF8.ml | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'UTF8.ml') diff --git a/UTF8.ml b/UTF8.ml index 33df5b4..4fa5eca 100755 --- a/UTF8.ml +++ b/UTF8.ml @@ -4,7 +4,11 @@ let empty = "" let decode x = Text.decode x -let encode x = Text.encode x +let encode x = + try Some (Text.encode x) + with Text.Invalid (_, _) -> None + +let raw_encode x = Text.encode x let from_utf8string x = x -- cgit v1.2.3