Rearrange node constructors in order of how frequent we expect them to be.

gregorycollins · gregorycollins · commit 2b5316f42a36 · 2012-01-06T22:38:57.000+01:00
diff --git a/src/Text/XmlHtml/Common.hs b/src/Text/XmlHtml/Common.hs
@@ -36,13 +36,13 @@ data Document = XmlDocument  {
 -- element.  XML processing instructions are intentionally omitted as a
 -- simplification, and CDATA and plain text are both text nodes, since they
 -- ought to be semantically interchangeable.
-data Node = TextNode !Text
-          | Comment  !Text
-          | Element {
+data Node = Element {
                 elementTag      :: !Text,
                 elementAttrs    :: ![(Text, Text)],
                 elementChildren :: ![Node]
             }
+          | TextNode !Text
+          | Comment  !Text
     deriving (Eq, Show)
 
 
