Use Tree Zipper for rendering DTC ToF in HTML5.

[doclang.git] / Language / TCT / Elem.hs

diff --git a/Language/TCT/Elem.hs b/Language/TCT/Elem.hs
index 9230e88cc8196722960d4a0c9863748f231f89ba..ef1b342c3fcab1b12a99258bb21cda87a5b2b211 100644 (file)
--- a/Language/TCT/Elem.hs
+++ b/Language/TCT/Elem.hs
@@ -1,6 +1,7 @@
 module Language.TCT.Elem where
 
 import Data.Eq (Eq)
+import Data.Ord (Ord)
 import Data.Semigroup (Semigroup(..))
 import Data.String (String)
 import Data.Text (Text)
@@ -26,7 +27,7 @@ data Attr
  ,   attr_value :: !Text
  ,   attr_close :: !Text
  }
- deriving (Eq,Show)
+ deriving (Eq,Ord,Show)
 
 -- ** Type 'White'
 type White = Text