> {-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-} > import Yesod > import Control.Applicative ((<$>), (<*>)) > > data Session = Session > mkYesod "Session" [parseRoutes| > / Root GET POST > |] > > instance Yesod Session where > approot _ = "" > clientSessionDuration _ = 1 > > instance RenderMessage Session FormMessage where > renderMessage _ _ = defaultFormMessage > > getRoot :: Handler RepHtml > getRoot = do > sess <- getSession > hamletToRepHtml [hamlet| >