/
ProcessingInstruction.purs
45 lines (32 loc) · 1.58 KB
/
ProcessingInstruction.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
module Web.DOM.ProcessingInstruction where
import Data.Maybe (Maybe)
import Effect (Effect)
import Unsafe.Coerce (unsafeCoerce)
import Web.DOM.CharacterData (CharacterData)
import Web.DOM.ChildNode (ChildNode)
import Web.DOM.Internal.Types (Node)
import Web.DOM.NonDocumentTypeChildNode (NonDocumentTypeChildNode)
import Web.Event.EventTarget (EventTarget)
import Web.Internal.FFI (unsafeReadProtoTagged)
foreign import data ProcessingInstruction :: Type
fromCharacterData :: CharacterData -> Maybe ProcessingInstruction
fromCharacterData = unsafeReadProtoTagged "ProcessingInstruction"
fromNode :: Node -> Maybe ProcessingInstruction
fromNode = unsafeReadProtoTagged "ProcessingInstruction"
fromChildNode :: ChildNode -> Maybe ProcessingInstruction
fromChildNode = unsafeReadProtoTagged "ProcessingInstruction"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe ProcessingInstruction
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "ProcessingInstruction"
fromEventTarget :: EventTarget -> Maybe ProcessingInstruction
fromEventTarget = unsafeReadProtoTagged "ProcessingInstruction"
toNode :: ProcessingInstruction -> Node
toNode = unsafeCoerce
toCharacterData :: ProcessingInstruction -> CharacterData
toCharacterData = unsafeCoerce
toChildNode :: ProcessingInstruction -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: ProcessingInstruction -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toEventTarget :: ProcessingInstruction -> EventTarget
toEventTarget = unsafeCoerce
foreign import target :: ProcessingInstruction -> Effect String