blob: 7554972c87933e3cc60004bab7fb03f3c984bc71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
-- | Module describing the Hakyll monad stack.
module Text.Hakyll.Hakyll
( HakyllConfiguration (..)
, Hakyll
, askHakyll
) where
import Control.Monad.Reader (ReaderT, ask)
import Control.Monad (liftM)
import Text.Hakyll.Context (Context)
-- | Hakyll global configuration type.
data HakyllConfiguration = HakyllConfiguration
{ -- | An additional context to use when rendering. This additional context
-- is used globally.
additionalContext :: Context
, -- | Directory where the site is placed.
siteDirectory :: FilePath
, -- | Directory for cache files.
cacheDirectory :: FilePath
, -- | Enable index links.
enableIndexUrl :: Bool
, -- | Delay between polls in preview mode.
previewPollDelay :: Int
}
-- | Our custom monad stack.
type Hakyll = ReaderT HakyllConfiguration IO
-- | Simplified @ask@ function for the Hakyll monad stack.
--
-- Usage would typically be something like:
--
-- > doSomething :: a -> b -> Hakyll c
-- > doSomething arg1 arg2 = do
-- > siteDirectory' <- askHakyll siteDirectory
-- > ...
--
askHakyll :: (HakyllConfiguration -> a) -> Hakyll a
askHakyll = flip liftM ask
|
