@@ -1,7 +1,6 @@
11module Text.Hakyll.Render
22 ( depends,
33 renderPage,
4− renderAndWrite,
54 writePage,
65 renderAndConcat,
76 renderChain,
@@ -38,10 +37,6 @@ renderPage templatePath page = do
3837 let body = substitute templateString (createContext page)
3938 return $ M.insert "body" body page
4039
41−renderAndWrite :: FilePath -> Page -> IO ()
42−renderAndWrite templatePath page =
43− renderPage templatePath page >>= writePage
44−
4540writePage :: Page -> IO ()
4641writePage page = do
4742 let destination = toDestination $ getURL page
@@ -57,8 +52,8 @@ renderAndConcat templatePath paths = foldM concatRender' B.empty paths
5752 let body = getBody rendered
5853 return $ B.append chunk $ body
5954
60−renderChain :: FilePath -> [FilePath] -> IO ()
61−renderChain pagePath templates = depends (toURL pagePath) (pagePath : templates) $
55+renderChain :: [FilePath] -> FilePath -> IO ()
56+renderChain templates pagePath = depends (toURL pagePath) (pagePath : templates) $
6257 do page <- readPage pagePath
6358 result <- foldM (flip renderPage) page templates
6459 writePage result