~singpolyma/post-part

2417910b15b657abd614b01e9976d5e2a966bebf — Stephen Paul Weber 2 years ago 17c66f3
Add -webkit prefix for old Safari
1 files changed, 1 insertions(+), 0 deletions(-)

M Main.purs
M Main.purs => Main.purs +1 -0
@@ 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))