Simple trial for html repr in haskell

html.hs

-- Simple trial for html repr in haskell

data Html = Tag String [String] [Html]
          | Text String

res :: [Html]
res = [(Tag "div" []
        [
         (Text "Hallo"),
         (Tag "b" [] [Text "Bold"])
        ]
       )]

instance Show (Html) where show = stringifyItem

stringify :: [Html] -> String
stringify (h:hs) = (stringifyItem h) ++ (stringify hs)
stringify [] = ""

stringifyItem :: Html -> String
stringifyItem (Tag name attr body) = "<" ++ name ++ ">" ++ (stringify body) ++ "</" ++ name ++ ">"
stringifyItem (Text t) = t


main ::IO ()
main = do putStrLn $ stringify res
          putStrLn $ show res