feat: href

This commit is contained in:
orion 2023-10-05 17:52:49 -05:00
parent a1ead38c39
commit 621f93b314
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -20,6 +20,9 @@ import Web.CSSOM.CSSStyleDeclaration (CSSStyleDeclaration)
import Web.DOM.HTMLCollection (HTMLCollection)
import Web.HTML as HTML
href :: Handle HTML.HTMLAnchorElement -> Aff String
href = Eval.unsafeRunJs0 "a => a.href"
equals :: forall a. IsElement a => Handle a -> Handle a -> Aff Boolean
equals a b = Eval.unsafeRunJs1 "(a, b) => a === b" a b