bamboo-2009.6.8: src/Bamboo/Type/StaticWidget.hs

{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.Type.StaticWidget where

import Bamboo.Helper.PreludeEnv
import Bamboo.Type.Class
import Bamboo.Type.Reader
import Control.Arrow ((&&&))
import qualified Data.ByteString.Char8 as S

data StaticWidget = StaticWidget
  { name    :: String
  , body    :: S.ByteString
  , reader  :: Reader
  }
  deriving (Show, Eq)

instance Markable StaticWidget where
  markup = (reader &&& body) > splash render_to_html