swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

clean code

Browse source
This commit is contained in:
pena 2022-12-08 02:14:31 +01:00 • committed by Swrup
parent 3db8c7f11f
commit 161273e33b
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/island.ml
View file

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