Xs_protocol.Responsetype payload = | Read of string| Directory of string list| Getperms of ACL.t| Getdomainpath of string| Transaction_start of int32| Write| Mkdir| Rm| Setperms| Watch| Unwatch| Transaction_end| Debug of string list| Introduce| Resume| Release| Set_target| Restrict| Isintroduced of bool| Error of string| Watchevent of string * stringval prettyprint_payload : payload -> string