format with ocamlformat 0.26.2

ahrefs · Jul 23, 2024 · 5b405f5 · 5b405f5
1 parent 58a9dee
commit 5b405f5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/bin/main.ml b/bin/main.ml
@@ -866,7 +866,8 @@ module Realpath = struct
              Lwt_io.printl (show_path (Path.abs (Storage.Secrets.agefile_of_name secret_name))))
            else if Path.is_directory abs_path then (
              let str = show_path abs_path in
-             if Path.is_dot (Path.build_rel_path (show_path path)) then Lwt_io.printl (Lazy.force Storage.Secrets.base_dir ^ "/")
+             if Path.is_dot (Path.build_rel_path (show_path path)) then
+               Lwt_io.printl (Lazy.force Storage.Secrets.base_dir ^ "/")
              else Lwt_io.printl (str ^ if String.ends_with ~suffix:"/" str then "" else "/"))
            else Lwt_io.eprintf "W: real path of secret/folder %S not found\n" (show_path path))
 
@@ -1218,7 +1219,8 @@ module Who = struct
               in
               [ Age.Key.inject "" ]
             with exn ->
-              Devkit.printfn "E: couldn't retrieve recipients for group %s. Reason: %s" recipient_name (Printexc.to_string exn);
+              Devkit.printfn "E: couldn't retrieve recipients for group %s. Reason: %s" recipient_name
+                (Printexc.to_string exn);
               []
           in
           (match recipient_keys with

diff --git a/lib/storage.ml b/lib/storage.ml
@@ -3,7 +3,7 @@ open Printf
 module Action = Devkit.Action
 module Stre = Devkit.Stre
 
-let (!!) = Lazy.force
+let ( !! ) = Lazy.force
 
 module Secret_name = struct
   include Devkit.Fresh (String) ()