{-# LANGUAGE TemplateHaskell #-}
module Main (main) where

import Text.Bravo


$(mkTemplatesFromFile "Example01.tpl")

main :: IO ()
main = do
    let users = [ newUser "Peter" "Miller" 30 True,
                  newUser "Sandra" "Thompson" 24 False,
                  newUser "Linda" "Scott" 38 True ]
        tpl   = show TplMain { mainUsers = concatMap show users }
    writeFile "Example01.html" tpl

newUser :: String -> String -> Int -> Bool -> TplUser
newUser fname lname age married = TplUser {
                                      userFirstName = fname,
                                      userLastName = lname,
                                      userAge = age,
                                      userMarried = married
                                  }