/
HTMLTitleElement.purs
58 lines (40 loc) · 1.85 KB
/
HTMLTitleElement.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
module Web.HTML.HTMLTitleElement where
import Prelude
import Data.Maybe (Maybe)
import Effect (Effect)
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 HTMLTitleElement :: Type
fromHTMLElement :: HTMLElement -> Maybe HTMLTitleElement
fromHTMLElement = unsafeReadProtoTagged "HTMLTitleElement"
fromElement :: Element -> Maybe HTMLTitleElement
fromElement = unsafeReadProtoTagged "HTMLTitleElement"
fromNode :: Node -> Maybe HTMLTitleElement
fromNode = unsafeReadProtoTagged "HTMLTitleElement"
fromChildNode :: ChildNode -> Maybe HTMLTitleElement
fromChildNode = unsafeReadProtoTagged "HTMLTitleElement"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLTitleElement
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLTitleElement"
fromParentNode :: ParentNode -> Maybe HTMLTitleElement
fromParentNode = unsafeReadProtoTagged "HTMLTitleElement"
fromEventTarget :: EventTarget -> Maybe HTMLTitleElement
fromEventTarget = unsafeReadProtoTagged "HTMLTitleElement"
toHTMLElement :: HTMLTitleElement -> HTMLElement
toHTMLElement = unsafeCoerce
toElement :: HTMLTitleElement -> Element
toElement = unsafeCoerce
toNode :: HTMLTitleElement -> Node
toNode = unsafeCoerce
toChildNode :: HTMLTitleElement -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: HTMLTitleElement -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toParentNode :: HTMLTitleElement -> ParentNode
toParentNode = unsafeCoerce
toEventTarget :: HTMLTitleElement -> EventTarget
toEventTarget = unsafeCoerce
foreign import text :: HTMLTitleElement -> Effect String
foreign import setText :: String -> HTMLTitleElement -> Effect Unit