int32 to string: easier to read the code

mirage · Mar 20, 2024 · 46653bf · 46653bf
1 parent a0623a9
commit 46653bf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/formats.ml b/lib/formats.ml
@@ -2,9 +2,9 @@
 (** for more details, see qubes-gui-common/include/qubes-gui-protocol.h *)
 
 let of_int32_le i =
-  assert(i < Int32.max_int);
-  let i = Int32.to_int i in
-  String.init 4 (fun p -> Char.chr ((i lsr (p*8)) land 0xff))
+  let b = Bytes.create 4 in
+  Bytes.set_int32_le b 0 i ;
+  Bytes.unsafe_to_string b
 
 (* String.get_* exixt since 4.13, this stub will be removed when the min
    Ocaml version will match *)