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)]