/
DocumentFragment.purs
42 lines (30 loc) · 1.35 KB
/
DocumentFragment.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
module Web.DOM.DocumentFragment where
import Data.Maybe (Maybe)
import Unsafe.Coerce (unsafeCoerce)
import Web.DOM.ChildNode (ChildNode)
import Web.DOM.Internal.Types (Node)
import Web.DOM.NonElementParentNode (NonElementParentNode)
import Web.DOM.ParentNode (ParentNode)
import Web.Event.EventTarget (EventTarget)
import Web.Internal.FFI (unsafeReadProtoTagged)
foreign import data DocumentFragment :: Type
fromNode :: Node -> Maybe DocumentFragment
fromNode = unsafeReadProtoTagged "DocumentFragment"
fromChildNode :: ChildNode -> Maybe DocumentFragment
fromChildNode = unsafeReadProtoTagged "DocumentFragment"
fromParentNode :: ParentNode -> Maybe DocumentFragment
fromParentNode = unsafeReadProtoTagged "DocumentFragment"
fromNonElementParentNode :: NonElementParentNode -> Maybe DocumentFragment
fromNonElementParentNode = unsafeReadProtoTagged "DocumentFragment"
fromEventTarget :: EventTarget -> Maybe DocumentFragment
fromEventTarget = unsafeReadProtoTagged "DocumentFragment"
toNode :: DocumentFragment -> Node
toNode = unsafeCoerce
toChildNode :: DocumentFragment -> ChildNode
toChildNode = unsafeCoerce
toParentNode :: DocumentFragment -> ParentNode
toParentNode = unsafeCoerce
toNonElementParentNode :: DocumentFragment -> NonElementParentNode
toNonElementParentNode = unsafeCoerce
toEventTarget :: DocumentFragment -> EventTarget
toEventTarget = unsafeCoerce