data Post = Post { postTitle :: Text , postBody :: Text } postSplice = do post <- getPostFromDatabase runChildrenWithText [("postTitle", postTitle post) ,("postBody", postBody post)]

<post> <h1><postTitle/></h1> <div><postBody/></div> </post>