]> Git — Sourcephile - doclang.git/blob - Hdoc/TCT/Elem.hs
XML: use symantic-xml
[doclang.git] / Hdoc / TCT / Elem.hs
1 module Hdoc.TCT.Elem where
2
3 import Data.Eq (Eq)
4 import Data.Ord (Ord)
5 import Text.Show (Show(..))
6 import qualified Data.Text.Lazy as TL
7 import qualified Language.Symantic.XML as XML
8
9 -- * Type 'ElemName'
10 type ElemName = XML.NCName
11 -- XML.QName
12
13 -- ** Type 'ElemAttr'
14 data ElemAttr
15 = ElemAttr
16 { elemAttr_name :: !XML.NCName
17 , elemAttr_open :: !TL.Text
18 , elemAttr_value :: !TL.Text
19 , elemAttr_close :: !TL.Text
20 }
21 deriving (Eq,Ord,Show)
22
23 -- ** Type 'White'
24 type White = TL.Text
25
26 -- ** Type 'ElemAttrs'
27 type ElemAttrs = [(White,ElemAttr)]