been writing an application that consumes JSON data and then displays it using Happstack.
helloBlaze :: ServerPart Response
helloBlaze =
ok $ toResponse $
appTemplate "Hello, Blaze!"
[H.meta ! A.name "keywords"
! A.content "happstack, blaze, html"
]
(do H.toHtml $ makeList $ getResponse)
makeList xs = "<ul>" ++ (Items xs) ++ "</ul>"
Items [] = ""
Items (x:xs) = "<li>" ++ x ++ "</li>" ++ (Items xs)
The problem is when I run Happstack the response generated is the results but with html tags still showing. Any suggestions would be much appreciated.