Cosmetic

src/lock.ml

@@ -80,7 +80,7 @@ let wait ?(until=10) ?(delay=1) () =
     sprintf "Waiting for locker, loop: %i" loop
     |> Messages.debug;
     match status () with
-      Locked ->
+    | Locked ->
       if loop < until; then (* < because we start from 0 *)
         begin
           Unix.sleep delay;

src/rc.ml

@@ -121,7 +121,9 @@ let rec get_basic rc_name =
   match Sys.file_exists rc_name with
   | `No -> create_basic rc_name; get_basic rc_name
   | `Unknown -> failwith "Error reading configuration file";
-  | `Yes -> try Sexp.load_sexp rc_name |> basic_rc_of_sexp
+  | `Yes ->
+    try
+      Sexp.load_sexp rc_name |> basic_rc_of_sexp
     with exn ->
       Messages.warning "Problem reading rc file";
       sprintf