From 0aded75cb78d54708ccc8c4cf2e0736d39e17864 Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Thu, 8 Dec 2022 02:14:31 +0100
Subject: [PATCH] clean code

---
 src/island.ml | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/island.ml b/src/island.ml
index a6b2ad8..0631163 100644
--- a/src/island.ml
+++ b/src/island.ml
@@ -16,14 +16,9 @@ let get request =
       ~a:[ a_id "canvas" ]
       [ txt "please update your browser or enable javascript" ]
   in
-  let img_grass = mk_img "grass" in
-  let img_papy_bottom = mk_img "papy_bottom" in
-  let img_water = mk_img "water" in
+  let images = List.map mk_img [ "grass"; "papy_bottom"; "water" ] in
 
-  let page =
-    div ~a:[ a_class [ "centered" ] ]
-    @@ [ canvas; img_grass; img_papy_bottom; img_water ]
-  in
+  let page = div ~a:[ a_class [ "centered" ] ] @@ (canvas :: images) in
 
   let js =
     script