type server = [ | `Server| `Shared
]type client = [ | `Client| `Shared
]type escape_inject = [ | `Escaped_value of server| `Injection of client
]type t = [ | `Server| `Client| `Shared| `Fragment of server * bool| `Escaped_value of server| `Injection of client
]