module Register:
exception My_exception of string
let module M =
OBus_error.Register(struct
exception E = My_exception
let name = "my.exception.name"
end)
in ()
But you can althoug write this with the syntax extension:
exception My_exception of string
with obus("my.exception.name")
Parameters: |
|