auto-format, update to recent ocamlformat

mirage · Mar 3, 2023 · 087ea9f · 087ea9f
1 parent 431821f
commit 087ea9f
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 8 deletions.
diff --git a/.ocamlformat b/.ocamlformat
@@ -1,4 +1,4 @@
-version = 0.21.0
+version = 0.24.1
 profile = conventional
 
 parse-docstrings = true
diff --git a/lib/memory.ml b/lib/memory.ml
@@ -54,12 +54,13 @@ let metrics ?(quick = true) ~tags () =
   let data () =
     let stat = stat () in
     Data.v
-      [ uint "memory heap words" stat.heap_words
-      ; uint "memory live words" stat.live_words
-      ; uint "memory stack words" stat.stack_words
-      ; uint "memory free words" stat.free_words ]
+      [
+        uint "memory heap words" stat.heap_words;
+        uint "memory live words" stat.live_words;
+        uint "memory stack words" stat.stack_words;
+        uint "memory free words" stat.free_words;
+      ]
   in
   Src.v ~doc ~tags ~data "memory"
 
-let () =
-  Metrics_lwt.periodically (metrics ~tags:Metrics.Tags.[] ())
+let () = Metrics_lwt.periodically (metrics ~tags:Metrics.Tags.[] ())
diff --git a/lib/xen_os.mli b/lib/xen_os.mli
@@ -60,7 +60,10 @@ module Memory : sig
   (** [trim ()] release free memory from the heap (may update the value returned
       by {!quick_stat}) *)
 
-  val metrics : ?quick:bool -> tags:'a Metrics.Tags.t -> unit ->
+  val metrics :
+    ?quick:bool ->
+    tags:'a Metrics.Tags.t ->
+    unit ->
     ('a, unit -> Metrics.Data.t) Metrics.src
   (** [metrics ~quick ~tags] is a metrics source calling {quick_stat} (unless
       [quick] is set to [false]) or {stat}. By default, this metrics source is