From 2417910b15b657abd614b01e9976d5e2a966bebf Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Thu, 8 Oct 2020 10:12:53 -0500 Subject: [PATCH] Add -webkit prefix for old Safari --- Main.purs | 1 + 1 file changed, 1 insertion(+) diff --git a/Main.purs b/Main.purs index 0c20711..1728b1e 100644 --- a/Main.purs +++ b/Main.purs @@ -53,6 +53,7 @@ addEventListener' eventType eventTarget cb = do clipCircle el size x y = do style <- Style.style $ Style.fromHTMLElement el + Style.setProperty style "-webkit-clip-path" ("circle(" <> size <> " at " <> (show x) <> "px " <> (show y) <> "px)") Style.setProperty style "clip-path" ("circle(" <> size <> " at " <> (show x) <> "px " <> (show y) <> "px)") getFigures :: ParentNode -> Effect (Array (Tuple HTMLElement HTMLMediaElement)) -- 2.38.4