1 files changed, 1 insertions(+), 0 deletions(-)

M 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))