@@ -37,18 +37,18 @@ instance boundedEnumNodeType :: BoundedEnum NodeType where
37
37
fromEnum = fromEnumNodeType
38
38
39
39
instance showNodeType :: Show NodeType where
40
- show ElementNode = " ElementNode"
41
- show AttributeNode = " AttributeNode"
42
- show TextNode = " TextNode"
43
- show CDATASectionNode = " CDATASectionNode"
44
- show EntityReferenceNode = " EntityReferenceNode"
45
- show EntityNode = " EntityNode"
40
+ show ElementNode = " ElementNode"
41
+ show AttributeNode = " AttributeNode"
42
+ show TextNode = " TextNode"
43
+ show CDATASectionNode = " CDATASectionNode"
44
+ show EntityReferenceNode = " EntityReferenceNode"
45
+ show EntityNode = " EntityNode"
46
46
show ProcessingInstructionNode = " ProcessingInstructionNode"
47
- show CommentNode = " CommentNode"
48
- show DocumentNode = " DocumentNode"
49
- show DocumentTypeNode = " DocumentTypeNode"
50
- show DocumentFragmentNode = " DocumentFragmentNode"
51
- show NotationNode = " NotationNode"
47
+ show CommentNode = " CommentNode"
48
+ show DocumentNode = " DocumentNode"
49
+ show DocumentTypeNode = " DocumentTypeNode"
50
+ show DocumentFragmentNode = " DocumentFragmentNode"
51
+ show NotationNode = " NotationNode"
52
52
53
53
toEnumNodeType :: Int -> Maybe NodeType
54
54
toEnumNodeType 1 = Just ElementNode
0 commit comments