mirror of
https://github.com/xen-project/xen.git
synced 2026-10-29 02:30:03 +01:00
Edwin Török
ea250e81cf
`git log -p -1 -w` proves the change here is only whitespace. No functional change. Signed-off-by: Edwin Török <edwin.torok@cloud.com> Acked-by: Christian Lindig <christian.lindig@citrix.com>
17 lines
391 B
OCaml
17 lines
391 B
OCaml
type request = {
|
|
tid: int;
|
|
rid: int;
|
|
ty: Xenbus.Xb.Op.operation;
|
|
data: string;
|
|
}
|
|
|
|
type response =
|
|
| Ack of (unit -> unit) (* function is the action to execute after sending the ack *)
|
|
| Reply of string
|
|
| Error of string
|
|
|
|
let response_equal a b =
|
|
match (a, b) with
|
|
| (Ack _, Ack _) -> true (* just consider the response, not the post-response action *)
|
|
| (x, y) -> x = y
|