From 38e42723a916b7d5c2a15e514b3f3e6dcab398dd Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 8 Aug 2020 21:04:28 +0200 Subject: Propose already defined colors in the form --- src/Lib/Modal.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Lib/Modal.ml') diff --git a/src/Lib/Modal.ml b/src/Lib/Modal.ml index 3fa0550..5db88cd 100644 --- a/src/Lib/Modal.ml +++ b/src/Lib/Modal.ml @@ -13,7 +13,7 @@ let show content = [| |] ; H.div [| HA.class_ "g-Modal__Window" |] - [| H.button + [| Button.raw [| HA.class_ "g-Modal__Close" ; HE.on_click (fun _ -> hide ()) |] -- cgit v1.2.3