Handle exception when trying to unescape default message

cca-io · Sep 4, 2023 · 11414b6 · 11414b6
1 parent 94bd887
commit 11414b6
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Message.ml b/lib/Message.ml
@@ -13,8 +13,14 @@ let fromStringMap ?description map =
   | Some id, Some defaultMessage -> Some {id; defaultMessage; description}
   | _ -> None
 
+let tryUnescape s =
+  try Scanf.unescaped s
+  with Scanf.Scan_failure err ->
+    (* ignore and return original string instead *)
+    s
+
 let toJson {id; defaultMessage; description} : Yojson.Basic.t =
-  let defaultMessage = Scanf.unescaped defaultMessage in
+  let defaultMessage = tryUnescape defaultMessage in
   match description with
   | Some description ->
     `Assoc