From ba9335badf0f43f9c788571221d798ad69c5e443 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Sun, 1 Jul 2018 17:32:05 +0700
Subject: [PATCH] Simplify dump_config with Option.map

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/lib.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/lib.ml b/src/lib.ml
index 71f584d6..5a2a3920 100644
--- a/src/lib.ml
+++ b/src/lib.ml
@@ -508,9 +508,7 @@ module Sub_system = struct
   let dump_config lib =
     Sub_system_name.Map.filter_map lib.sub_systems ~f:(fun (lazy inst) ->
       let (Sub_system0.Instance.T ((module M), t)) = inst in
-      match M.to_sexp with
-      | None -> None
-      | Some f -> Some (f t))
+      Option.map ~f:(fun f -> f t) M.to_sexp)
 end
 
 (* +-----------------------------------------------------------------+