This example shows how generalized hamlet templates allow the creation of
different types of values. The key component here is the HamletValue typeclass.
Yesod has instances for:

* Html

* HtmlUrl (= (url -> [(String, String)] -> String) -> Html)

* GWidget s m ()

This example uses all three. You are of course free in your own code to make
your own instances.

> {-# LANGUAGE QuasiQuotes, TypeFamilies, MultiParamTypeClasses, OverloadedStrings, TemplateHaskell #-}
> import Yesod
> import Text.Hamlet (shamlet)
> data NewHamlet = NewHamlet
> mkYesod "NewHamlet" [$parseRoutes|/ RootR GET|]
> instance Yesod NewHamlet where approot _ = ""
> 
> myHtml :: Html
> myHtml = [shamlet|<p>Just don't use any URLs in here!|]
>
> myInnerWidget :: Widget
> myInnerWidget = do
>     addHamlet [$hamlet|
>   <div #inner>Inner widget
>   #{myHtml}
> |]
>     addCassius [$cassius|
>#inner
>     color: red|]
> 
> myPlainTemplate :: HtmlUrl NewHamletRoute
> myPlainTemplate = [hamlet|
> <p
>     <a href=@{RootR}>Link to home
> |]
> 
> myWidget :: Widget
> myWidget = [whamlet|
>     <h1>Embed another widget
>     \^{myInnerWidget}
>     <h1>Embed a Hamlet
>     \^{addHamlet myPlainTemplate}
> |]
> 
> getRootR :: GHandler NewHamlet NewHamlet RepHtml
> getRootR = defaultLayout myWidget
> 
> main :: IO ()
> main = warpDebug 3000 NewHamlet