let deserialize s : (t, _) Result.t = let open Result in begin try return (deserialize_exn s) with e -> fail (`Target (`Deserilization (Printexc.to_string e))) end