{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE OverloadedStrings #-} module Helper.YesodHelper( bootstrapCDN , bootstrapLayout , alertMessage , writeTokenToSession , getTokenFromSession , deleteTokenFromSession ) where import Yesod.Core (Yesod, widgetToPageContent) import Yesod.Widget (GWidget, PageContent(..)) import Yesod.Handler (GHandler, hamletToRepHtml, getMessage, setMessage, getMessageRender, setSessionBS, deleteSession, lookupSessionBS) import Yesod.Content (RepHtml) import Text.Hamlet (hamlet) import Data.Text (Text) import Text.Shakespeare.I18N (RenderMessage(..)) import Web.XING import Text.Hamlet (shamlet) import Data.Maybe (isJust, fromJust) import Data.Monoid (mappend) bootstrapCDN :: Text bootstrapCDN = "//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.0" bootstrapLayout :: (Yesod a) => GWidget sub a () -> GHandler sub a RepHtml bootstrapLayout widget = do pc <- widgetToPageContent widget mmsg <- getMessage hamletToRepHtml [hamlet| $doctype 5