LucidDemo.hs

import Data.Text.Lazy (Text)
import qualified Data.Text.Lazy.IO as LIO
import Lucid

value1 :: Text
value1 = "value1"

demoPage :: IO Text
demoPage = return $ renderText $ do
    head_ (title_ "recent calls")
    body_ $ table_ $ do
      tr_ $ do
        th_ "field1"
        th_ "field2"
        th_ "field3"
      tr_ $ do
        td_ (toHtml value1)
        td_ "value2"
        td_ "value3"

main :: IO ()
main = do
  text <- demoPage
  LIO.putStrLn text