html.hs

module HTML where

  class Tag a where
    toHTML :: a -> String


  data Attribute = Attribute {
    key :: String,
    value :: String
  } deriving Show

  instance Tag Attribute where
    toHTML (Attribute {key=key, value=val}) = key ++ "=\"" ++ val ++ "\""

  instance Tag [Attribute] where
    toHTML (attr : attrs) = " " ++ toHTML attr ++ toHTML attrs
    toHTML [] = ""