make format

Signed-off-by: BenjiReis <[email protected]>
xcp-ng · Jul 18, 2023 · fe4acf8 · fe4acf8
1 parent af49756
commit fe4acf8
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 18 deletions.
diff --git a/ocaml/quicktest/qt_filter.ml b/ocaml/quicktest/qt_filter.ml
@@ -180,19 +180,20 @@ module SR = struct
            ~self:pool
         )
         ()
-    else if !A.sr <> "" then
-        let sr =
-          Client.Client.SR.get_by_uuid ~rpc:!A.rpc ~session_id:!session_id ~uuid:!A.sr
-        in
-        let local_srs =
-          list_srs_connected_to_localhost !A.rpc !session_id
-          |> List.map (fun sr_info -> sr_info.Qt.sr)
-        in
-        if not (List.mem sr local_srs) then (
-          failwith (Printf.sprintf "Specified sr %s is not available on the host" !A.sr) ;
-        ) ;
-        only sr ()
-    else
+    else if !A.sr <> "" then (
+      let sr =
+        Client.Client.SR.get_by_uuid ~rpc:!A.rpc ~session_id:!session_id
+          ~uuid:!A.sr
+      in
+      let local_srs =
+        list_srs_connected_to_localhost !A.rpc !session_id
+        |> List.map (fun sr_info -> sr_info.Qt.sr)
+      in
+      if not (List.mem sr local_srs) then
+        failwith
+          (Printf.sprintf "Specified sr %s is not available on the host" !A.sr) ;
+      only sr ()
+    ) else
       Lazy.force all_srs
 
   let random srs () =

diff --git a/ocaml/quicktest/quicktest_args.ml b/ocaml/quicktest/quicktest_args.ml
@@ -47,10 +47,15 @@ let parse () =
       )
     ; ( "-default-sr"
       , Arg.Unit (fun () -> use_default_sr := true)
-      , "Only run SR tests on the pool's default SR, mutually exclusive with -sr"
+      , "Only run SR tests on the pool's default SR, mutually exclusive with \
+         -sr"
       )
     ; ("-nocolour", Arg.Clear use_colour, "Don't use colour in the output")
-    ; ("-sr", Arg.String (fun x -> sr := x), "Only run SR tests on the specified SR, mutually exclusive with -default-sr")
+    ; ( "-sr"
+      , Arg.String (fun x -> sr := x)
+      , "Only run SR tests on the specified SR, mutually exclusive with \
+         -default-sr"
+      )
     ]
     (fun x ->
       match (!host, !username, !password) with
@@ -68,9 +73,8 @@ let parse () =
     "Perform some quick functional tests. The default is to test localhost \
      over a Unix socket. For remote server supply <hostname> <username> and \
      <password> arguments." ;
-  if !use_default_sr && !sr <> "" then (
-    raise (Arg.Bad "-default-sr and -sr are mutually exclusive")
-  ) ;
+  if !use_default_sr && !sr <> "" then
+    raise (Arg.Bad "-default-sr and -sr are mutually exclusive") ;
   if !host = "" then host := "localhost" ;
   if !username = "" then username := "root"