maintenance: use Stdlib's List.filter_map

This is a cosmetic change

Signed-off-by: Pau Ruiz Safont <[email protected]>

Author: psafont

lib/network_utils.ml

@@ -540,11 +540,11 @@ module Ip = struct
 
   let get_ipv4 dev =
     let addrs = addr dev "inet" in
-    Xapi_stdext_std.Listext.List.filter_map split_addr addrs
+    List.filter_map split_addr addrs
 
   let get_ipv6 dev =
     let addrs = addr dev "inet6" in
-    Xapi_stdext_std.Listext.List.filter_map split_addr addrs
+    List.filter_map split_addr addrs
 
   let set_ip_addr dev (ip, prefixlen) =
     let addr = Printf.sprintf "%s/%d" (Unix.string_of_inet_addr ip) prefixlen in
@@ -815,7 +815,7 @@ module Linux_bonding = struct
           debug "Failed to get property \"%s\" on bond %s" prop master ;
           None
       in
-      Xapi_stdext_std.Listext.List.filter_map get_prop known_props
+      List.filter_map get_prop known_props
     else (
       debug "Bond %s does not exist; cannot get properties" master ;
       []
@@ -1495,7 +1495,7 @@ module Ovs = struct
             | None ->
                 None
           in
-          Xapi_stdext_std.Listext.List.filter_map parse lines
+          List.filter_map parse lines
         in
         List.flatten
           (List.map
@@ -1699,7 +1699,7 @@ module Ovs = struct
              ; ("lacp-actor-key", "other-config:lacp-actor-key")
              ])
       and other_args =
-        Xapi_stdext_std.Listext.List.filter_map
+        List.filter_map
           (fun (k, v) ->
             if List.mem k known_props then
               None
@@ -1915,7 +1915,6 @@ module Modprobe = struct
   *)
   let get_config_from_comments driver =
     try
-      let open Xapi_stdext_std.Listext in
       Unixext.read_lines ~path:(getpath driver)
       |> List.filter_map (fun x ->
              let line = String.trim x in

networkd/network_server.ml

@@ -1286,14 +1286,8 @@ module Bridge = struct
                 (fun (bridge, _, _) -> List.mem bridge ifaces)
                 (Proc.get_vlans ())
             in
-            let bond_ifaces =
-              List.filter
-                (fun iface -> Linux_bonding.is_bond_device iface)
-                ifaces
-            in
-            let physical_ifaces =
-              List.filter (fun iface -> Sysfs.is_physical iface) ifaces
-            in
+            let bond_ifaces = List.filter Linux_bonding.is_bond_device ifaces in
+            let physical_ifaces = List.filter Sysfs.is_physical ifaces in
             match (vlan_ifaces, bond_ifaces) with
             | (_, _, parent) :: _, _ when Linux_bonding.is_bond_device parent ->
                 Linux_bonding.get_bond_slaves parent
@@ -1335,7 +1329,7 @@ module Bridge = struct
               (String.concat ", "
                  (List.map (fun (name, _) -> name) persistent_config)) ;
             let vlan_parents =
-              Xapi_stdext_std.Listext.List.filter_map
+              List.filter_map
                 (function
                   | _, {vlan= Some (parent, _); _} ->
                       if not (List.mem_assoc parent persistent_config) then