Foundation.hs

module Foundation where

import Import.NoFoundation
import Text.Hamlet         (hamletFile)
import Yesod.Core.Types    (Logger)

data App = App
    { appSettings    :: AppSettings
    , appStatic      :: Static 
    , appLogger      :: Logger
    }

mkYesodData "App" $(parseRoutesFile "config/routes")

type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)

instance Yesod App where
    approot = ApprootMaster $ appRoot . appSettings
    defaultLayout widget = do
        master <- getYesod
        mmsg <- getMessage

        pc <- widgetToPageContent $ do
            addStylesheet $ StaticR css_bootstrap_css
            $(widgetFile "default-layout")
        withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")

    shouldLog app _source level =
        appShouldLogAll (appSettings app)
            || level == LevelWarn
            || level == LevelError

    makeLogger = return . appLogger

instance RenderMessage App FormMessage where
    renderMessage _ _ = defaultFormMessage