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