> {-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-} > import Yesod > import Control.Applicative ((<$>), (<*>)) > > data Session = Session > type Handler = GHandler Session Session > mkYesod "Session" [$parseRoutes| > / Root GET POST > |] > getRoot :: Handler RepHtml > getRoot = do > sess <- getSession > hamletToRepHtml [$hamlet| >