Corrected some issues with odf documents

1 files changed, 5 insertions, 1 deletions

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