import Control.Applicative ((<$>),(<*>)) import Control.Monad (forM_) import Data.Text (Text) import qualified Data.Text as T import Yesod import Yesod.Form.Jquery hiding (urlJqueryJs) import Yesod.Form.Bootstrap3 import Yesod.Goodies.PNotify data Demo = Demo mkYesod "Demo" [parseRoutes| / LoginR GET POST /home/#Text HomeR GET |] instance Yesod Demo where defaultLayout widget = do y <- getYesod pc <- widgetToPageContent $ do addScriptEither $ urlJqueryJs y addScriptEither $ urlBootstrap3Js y addStylesheetEither $ urlBootstrap3Css y widget pnotify y withUrlRenderer [hamlet| $doctype 5