Added page chain rendering.

1 files changed, 2 insertions, 7 deletions

diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs
index a554fd5..c611a88 100644
--- a/src/Text/Hakyll/Render.hs
+++ b/src/Text/Hakyll/Render.hs
@@ -1,7 +1,6 @@
 module Text.Hakyll.Render 
     ( depends,
       renderPage,
-      renderAndWrite,
       writePage,
       renderAndConcat,
       renderChain,
@@ -38,10 +37,6 @@ renderPage templatePath page = do
     let body = substitute templateString (createContext page)
     return $ M.insert "body" body page
 
-renderAndWrite :: FilePath -> Page -> IO ()
-renderAndWrite templatePath page =
-    renderPage templatePath page >>= writePage
-
 writePage :: Page -> IO ()
 writePage page = do
     let destination = toDestination $ getURL page
@@ -57,8 +52,8 @@ renderAndConcat templatePath paths = foldM concatRender' B.empty paths
               let body = getBody rendered
               return $ B.append chunk $ body
 
-renderChain :: FilePath -> [FilePath] -> IO ()
-renderChain pagePath templates = depends (toURL pagePath) (pagePath : templates) $
+renderChain :: [FilePath] -> FilePath -> IO ()
+renderChain templates pagePath = depends (toURL pagePath) (pagePath : templates) $
     do page <- readPage pagePath
        result <- foldM (flip renderPage) page templates
        writePage result