Simplify dump_config with Option.map
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
7b12e12571
commit
ba9335badf
|
@ -508,9 +508,7 @@ module Sub_system = struct
|
||||||
let dump_config lib =
|
let dump_config lib =
|
||||||
Sub_system_name.Map.filter_map lib.sub_systems ~f:(fun (lazy inst) ->
|
Sub_system_name.Map.filter_map lib.sub_systems ~f:(fun (lazy inst) ->
|
||||||
let (Sub_system0.Instance.T ((module M), t)) = inst in
|
let (Sub_system0.Instance.T ((module M), t)) = inst in
|
||||||
match M.to_sexp with
|
Option.map ~f:(fun f -> f t) M.to_sexp)
|
||||||
| None -> None
|
|
||||||
| Some f -> Some (f t))
|
|
||||||
end
|
end
|
||||||
|
|
||||||
(* +-----------------------------------------------------------------+
|
(* +-----------------------------------------------------------------+
|
||||||
|
|
Loading…
Reference in New Issue