module Text.Hakyll.Hakyll
( HakyllConfiguration (..)
, Hakyll
, askHakyll
) where
import Control.Monad.Reader (ReaderT, ask)
import Control.Monad (liftM)
import Text.Hakyll.Context (Context)
data HakyllConfiguration = HakyllConfiguration
{
additionalContext :: Context
,
siteDirectory :: FilePath
,
cacheDirectory :: FilePath
,
enableIndexUrl :: Bool
,
previewPollDelay :: Int
}
type Hakyll = ReaderT HakyllConfiguration IO
askHakyll :: (HakyllConfiguration -> a) -> Hakyll a
askHakyll = flip liftM ask