OCaml: Log contents of /etc/os_release for 'os' command (INS v0.2 B2.3)

This commit is contained in:
Juno Takano 2025-05-05 10:55:52 -03:00
commit b33caae0d8

View file

@ -2,6 +2,8 @@
let identify : string =
let os_release = String.split_on_char '\n' (File.read "/etc/os-release") in
Utilities.Log.elog (String.concat "\n" os_release);
let os_equals = List.find (String.starts_with ~prefix:"NAME=") os_release in
match String.split_on_char '=' os_equals with
| [ _; s ] ->