Tag.hs

---
--- Tag
---

data Tag = Tag {
 tagType  :: String,
 tagAttrs :: [Attr]
}

data Attr = Attr String String

---
--- tagToHTML
---

tagToHTML :: Tag -> String
tagToHTML t = "<" ++ tagType t ++ " " ++ attrs ++ "/>a"
          where attrs = join (map attrPair (tagAttrs t))

---
--- attrPair
---

attrPair :: Attr -> String
attrPair (Attr k v) = k ++ "=\"" ++ v ++ "\""

---
--- join
---

join :: [String] -> String 
join (x:xs) = x ++ " " ++ (join xs)
join [] = ""

--- main

input = Tag "input" [Attr "id" "comments", Attr "disabled" "disabled"]
main = print (tagToHTML input)