Tag


  
---
--- 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)
  Just playing around, super new to Haskell (1 hour or so), and pointers would be great
  2009-04-13T01:03:01+00:00
  821
  Haskell
  tag
  3
  Tag
  
  2009-04-13T15:13:36+00:00
  634
  
    
      data Tag = Tag {
 tagType  :: String,
 tagAttrs :: [Attr]
}

data Attr = Attr String String

instance Show Tag where
 show tag = foldr (++) "" ["<",tagType tag," ",unwords.(map show) $ tagAttrs tag,"/>"]

instance Show Attr where
 show (Attr k v) = concat [k,"=\"",v,"\""]

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

      821
      Using show instances for printing operations make outputing data more transparent.

      2009-04-13T09:51:41+00:00
      154921
      Haskell
      5
      2
      On Tag
      
      sargon
      www.mindeye.net
    
    
      
      821
      arg, 
in the instance of Show Tag using concat instead of foldr will do the job with less chars ;)
      2009-04-13T09:54:11+00:00
      154922
      Haskell
      0
      0
      On Tag
      
      sargon
      
    
    
      
      821
      Ah I was wondering what this Show stuff was about, had a feeling there was  a much better way to do that. thanks!
      2009-04-13T15:13:31+00:00
      154941
      Haskell
      0
      0
      On Tag
      634
      Tj Holowaychuk
      http://vision-media.ca