]> Git — Sourcephile - doclang.git/blob - Language/TCT/Elem.hs
Fix href= in <toc>.
[doclang.git] / Language / TCT / Elem.hs
1 module Language.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
8 -- * Type 'ElemName'
9 type ElemName = TL.Text
10
11 -- ** Type 'ElemAttr'
12 data ElemAttr
13 = ElemAttr
14 { elemAttr_name :: !TL.Text
15 , elemAttr_open :: !TL.Text
16 , elemAttr_value :: !TL.Text
17 , elemAttr_close :: !TL.Text
18 }
19 deriving (Eq,Ord,Show)
20
21 -- ** Type 'White'
22 type White = TL.Text
23
24 -- ** Type 'ElemAttrs'
25 type ElemAttrs = [(White,ElemAttr)]