Displaying 2 results from an estimated 2 matches for "devices_of_partitions".
2017 Jul 20
1
Re: [PATCH 19/27] daemon: Reimplement ‘list_filesystems’ API in the daemon, in OCaml.
...evices part ->
> + let d = Devsparts.part_to_dev part in
> + List.filter ((<>) d) devices
> + ) devices partitions in
Hm it took me a couple of reading to get it -- what would you think
about the following (untested):
module StringSet = Set.Make (String)
...
let devices_of_partitions = List.fold_left (
fun set part ->
StringSet.add part set
) partitions StringSet.empty in
(* Remove *)
let devices = List.filter (
fun dev ->
not (StringSet.mem dev devices_of_partitions)
) devices in
let devices = devices @ partitions in
> + (* Use vfs-typ...
2017 Jul 14
45
[PATCH 00/27] Reimplement many daemon APIs in OCaml.
Previously posted as part of the mega utilities/inspection
series here:
https://www.redhat.com/archives/libguestfs/2017-June/msg00232.html
What I've done is to extract just the parts related to rewriting
daemon APIs in OCaml, rebase them on top of the current master, fix a
few things, and recompile and test everything.
Rich.