From bfbccf2ba2d755511139c9b98d189cda0a4a1d62 Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Mon, 17 Jun 2024 14:48:13 +0200
Subject: [PATCH] Simplify expression

---
 compiler/lib/js_output.ml | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index af093fb05e..aa3496164d 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -1980,11 +1980,7 @@ let program ?(accept_unnamed_var = false) f ?source_map p =
     | Some sm ->
         let sources = hashtbl_to_list files in
         let names = hashtbl_to_list names in
-        let sources_contents =
-          let open Option.Syntax in
-          let* r = contents in
-          Option.return (List.rev !r)
-        in
+        let sources_contents = Option.map ~f:(fun x -> List.rev !x) contents in
         let sources =
           List.map sources ~f:(fun filename ->
               match Builtins.find filename with