diff options
Diffstat (limited to 'lib/serialize.ml')
-rw-r--r-- | lib/serialize.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/serialize.ml b/lib/serialize.ml index aa2e3f02a..b14bfb283 100644 --- a/lib/serialize.ml +++ b/lib/serialize.ml @@ -114,3 +114,7 @@ let to_loc xml = with Not_found | Invalid_argument _ -> raise Marshal_error) | _ -> raise Marshal_error +let of_xml x = Element ("xml", [], [x]) +let to_xml xml = match xml with +| Element ("xml", [], [x]) -> x +| _ -> raise Marshal_error |