feat: href
This commit is contained in:
parent
a1ead38c39
commit
621f93b314
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user