type 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 * string |
val prettyprint_payload : payload -> string