@@ -26,11 +26,10 @@ import Text.Hakyll.Internal.Page
2626-- dependency checking. A @String@ is obviously more simple to use in some
2727-- cases.
2828createCustomPage :: String
29− -> [FilePath]
3029 -> [(String, Either String (RenderAction () String))]
3130 -> Renderable
32−createCustomPage url dependencies association = RenderAction
33− { actionDependencies = dependencies ++ dataDependencies
31+createCustomPage url association = RenderAction
32+ { actionDependencies = dataDependencies
3433 , actionUrl = Just $ return url
3534 , actionFunction = \_ -> M.fromList <$> assoc'
3635 }
@@ -50,13 +49,13 @@ createCustomPage url dependencies association = RenderAction
5049-- @CustomPage@.
5150--
5251-- > let customPage = createListingWith
53−-- > "index.html" -- Destination of the page.
54−-- > "templates/postitem.html" -- Path to template to
55−-- > -- render the items with.
56−-- > posts -- ^ Renderables to create the list with.
57−-- > [("title", "Home")] -- ^ Additional context
58−createListing :: String -- ^ Destination of the page.
59− -> FilePath -- ^ Template to render all items with.
52+-- > "index.html" -- Destination of the page.
53+-- > ["templates/postitem.html"] -- Paths to templates to render the
54+-- > -- items with.
55+-- > posts -- Renderables to create the list with.
56+-- > [("title", Left "Home")] -- Additional context
57+createListing :: String -- ^ Destination of the page.
58+ -> [FilePath] -- ^ Templates to render all items with.
6059 -> [Renderable] -- ^ Renderables in the list.
6160 -> [(String, Either String (RenderAction () String))]
6261 -> Renderable
@@ -67,17 +66,16 @@ createListing = createListingWith id
6766-- In addition to @createListing@, this function allows you to specify an
6867-- extra @ContextManipulation@ for all @Renderable@s given.
6968createListingWith :: ContextManipulation -- ^ Manipulation for the renderables.
70− -> String -- ^ Destination of the page.
71− -> FilePath -- ^ Template to render all items with.
69+ -> String -- ^ Destination of the page.
70+ -> [FilePath] -- ^ Templates to render all items with.
7271 -> [Renderable] -- ^ Renderables in the list.
7372 -> [(String, Either String (RenderAction () String))]
7473 -> Renderable
75−createListingWith manipulation url template renderables additional =
76− createCustomPage url dependencies context
74+createListingWith manipulation url templates renderables additional =
75+ createCustomPage url context
7776 where
78− dependencies = template : concatMap actionDependencies renderables
7977 context = ("body", Right concatenation) : additional
80− concatenation = renderAndConcatWith manipulation [template] renderables
78+ concatenation = renderAndConcatWith manipulation templates renderables
8179
8280-- | Create a PagePath from a FilePath.
8381createPagePath :: FilePath -> Renderable