]> Git — Sourcephile - doclang.git/blob - Text/Blaze/DTC/Attributes.hs
Update to megaparsec-7 and new symantic-xml
[doclang.git] / Text / Blaze / DTC / Attributes.hs
1 {-# LANGUAGE OverloadedStrings #-}
2 module Text.Blaze.DTC.Attributes where
3
4 -- import Control.Monad ((>>))
5 -- import Data.Function ((.))
6
7 import Text.Blaze.Internal (Attribute, AttributeValue, attribute)
8
9 at :: AttributeValue -> Attribute
10 at = attribute "at" " at=\""
11 city :: AttributeValue -> Attribute
12 city = attribute "city" " city=\""
13 class_ :: AttributeValue -> Attribute
14 class_ = attribute "class" " class=\""
15 country :: AttributeValue -> Attribute
16 country = attribute "country" " country=\""
17 day :: AttributeValue -> Attribute
18 day = attribute "day" " day=\""
19 depth :: AttributeValue -> Attribute
20 depth = attribute "depth" " depth=\""
21 email :: AttributeValue -> Attribute
22 email = attribute "email" " email=\""
23 fax :: AttributeValue -> Attribute
24 fax = attribute "fax" " fax=\""
25 grades :: AttributeValue -> Attribute
26 grades = attribute "grades" " grades=\""
27 href :: AttributeValue -> Attribute
28 href = attribute "href" " href=\""
29 id :: AttributeValue -> Attribute
30 id = attribute "id" " id=\""
31 judges :: AttributeValue -> Attribute
32 judges = attribute "judges" " judges=\""
33 lang :: AttributeValue -> Attribute
34 lang = attribute "lang" " lang=\""
35 month :: AttributeValue -> Attribute
36 month = attribute "month" " month=\""
37 name :: AttributeValue -> Attribute
38 name = attribute "name" " name=\""
39 region :: AttributeValue -> Attribute
40 region = attribute "region" " region=\""
41 rel :: AttributeValue -> Attribute
42 rel = attribute "rel" " rel=\""
43 role :: AttributeValue -> Attribute
44 role = attribute "role" " role=\""
45 source :: AttributeValue -> Attribute
46 source = attribute "source" " source=\""
47 street :: AttributeValue -> Attribute
48 street = attribute "street" " street=\""
49 style :: AttributeValue -> Attribute
50 style = attribute "style" " style=\""
51 tel :: AttributeValue -> Attribute
52 tel = attribute "tel" " tel=\""
53 term :: AttributeValue -> Attribute
54 term = attribute "term" " term=\""
55 to :: AttributeValue -> Attribute
56 to = attribute "to" " to=\""
57 type_ :: AttributeValue -> Attribute
58 type_ = attribute "type" " type=\""
59 url :: AttributeValue -> Attribute
60 url = attribute "url" " url=\""
61 year :: AttributeValue -> Attribute
62 year = attribute "year" " year=\""
63 zipcode :: AttributeValue -> Attribute
64 zipcode = attribute "zipcode" " zipcode=\""