tools/oxenstored: Style fixes to Domain

This file has some style problems so severe that they interfere with the
readability of the subsequent bugfix patches.

Fix these issues ahead of time, to make the subsequent changes more readable.

No functional change.

Signed-off-by: Andrew Cooper <andrew.cooper3@citrix.com>
Reviewed-by: Edwin Török <edvin.torok@citrix.com>
Acked-by: Christian Lindig <christian.lindig@citrix.com>

diff --git a/tools/ocaml/xenstored/domain.ml b/tools/ocaml/xenstored/domain.ml
index 81cb59b8f1a2df17cbd3bca607bcc44d9a0f2aaa..ab08dcf37f62a696347ef0544d61c409ac33920b 100644 (file)
--- a/tools/ocaml/xenstored/domain.ml
+++ b/tools/ocaml/xenstored/domain.ml
@@ -57,17 +57,16 @@ let is_paused_for_conflict dom = dom.conflict_credit <= 0.0
 let is_free_to_conflict = is_dom0
 
 let string_of_port = function
-| None -> "None"
-| Some x -> string_of_int (Xeneventchn.to_int x)
+       | None -> "None"
+       | Some x -> string_of_int (Xeneventchn.to_int x)
 
 let dump d chan =
        fprintf chan "dom,%d,%nd,%d\n" d.id d.mfn d.remote_port
 
-let notify dom = match dom.port with
-| None ->
-       warn "domain %d: attempt to notify on unknown port" dom.id
-| Some port ->
-       Event.notify dom.eventchn port
+let notify dom =
+       match dom.port with
+       | None -> warn "domain %d: attempt to notify on unknown port" dom.id
+       | Some port -> Event.notify dom.eventchn port
 
 let bind_interdomain dom =
        begin match dom.port with
@@ -84,8 +83,7 @@ let close dom =
        | None -> ()
        | Some port -> Event.unbind dom.eventchn port
        end;
-       Xenmmap.unmap dom.interface;
-       ()
+       Xenmmap.unmap dom.interface
 
 let make id mfn remote_port interface eventchn = {
        id = id;