OCaml: Log contents of /etc/os_release for 'os' command (INS v0.2 B2.3)
This commit is contained in:
parent
8b1aae16c6
commit
b33caae0d8
1 changed files with 2 additions and 0 deletions
|
|
@ -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 ] ->
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue