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