/
HTMLBaseElement.purs
61 lines (42 loc) · 1.96 KB
/
HTMLBaseElement.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
module Web.HTML.HTMLBaseElement where
import Data.Maybe (Maybe)
import Effect (Effect)
import Prelude (Unit)
import Unsafe.Coerce (unsafeCoerce)
import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
import Web.Event.EventTarget (EventTarget)
import Web.HTML.HTMLElement (HTMLElement)
import Web.Internal.FFI (unsafeReadProtoTagged)
foreign import data HTMLBaseElement :: Type
fromHTMLElement :: HTMLElement -> Maybe HTMLBaseElement
fromHTMLElement = unsafeReadProtoTagged "HTMLBaseElement"
fromElement :: Element -> Maybe HTMLBaseElement
fromElement = unsafeReadProtoTagged "HTMLBaseElement"
fromNode :: Node -> Maybe HTMLBaseElement
fromNode = unsafeReadProtoTagged "HTMLBaseElement"
fromChildNode :: ChildNode -> Maybe HTMLBaseElement
fromChildNode = unsafeReadProtoTagged "HTMLBaseElement"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLBaseElement
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLBaseElement"
fromParentNode :: ParentNode -> Maybe HTMLBaseElement
fromParentNode = unsafeReadProtoTagged "HTMLBaseElement"
fromEventTarget :: EventTarget -> Maybe HTMLBaseElement
fromEventTarget = unsafeReadProtoTagged "HTMLBaseElement"
toHTMLElement :: HTMLBaseElement -> HTMLElement
toHTMLElement = unsafeCoerce
toElement :: HTMLBaseElement -> Element
toElement = unsafeCoerce
toNode :: HTMLBaseElement -> Node
toNode = unsafeCoerce
toChildNode :: HTMLBaseElement -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: HTMLBaseElement -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toParentNode :: HTMLBaseElement -> ParentNode
toParentNode = unsafeCoerce
toEventTarget :: HTMLBaseElement -> EventTarget
toEventTarget = unsafeCoerce
foreign import href :: HTMLBaseElement -> Effect String
foreign import setHref :: String -> HTMLBaseElement -> Effect Unit
foreign import target :: HTMLBaseElement -> Effect String
foreign import setTarget :: String -> HTMLBaseElement -> Effect Unit