@@ -37,18 +37,18 @@ instance boundedEnumNodeType :: BoundedEnum NodeType where
3737 fromEnum = fromEnumNodeType
3838
3939instance 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"
4646 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"
5252
5353toEnumNodeType :: Int -> Maybe NodeType
5454toEnumNodeType 1 = Just ElementNode
0 commit comments