Moved writePage to Text.Hakyll.Page.

2 files changed, 9 insertions, 9 deletions

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 4bcacc4..1590de2 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -2,7 +2,8 @@ module Text.Hakyll.Page
     ( Page,
       fromContext,
       getBody,
-      readPage
+      readPage,
+      writePage
     ) where
 
 import qualified Data.Map as M
@@ -116,6 +117,13 @@ readPage pagePath = do
     where url = toURL pagePath
           cacheFile = toCache url
 
+-- | Write a page to the site destination.
+writePage :: Page -> IO ()
+writePage page = do
+    let destination = toDestination $ getURL page
+    makeDirectories destination
+    B.writeFile destination (getBody page)
+
 -- Make pages renderable.
 instance Renderable Page where
     getDependencies = (:[]) . flip addExtension ".html" . dropExtension . getPageURL
diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs
index daca5b1..a94ac2d 100644
--- a/src/Text/Hakyll/Render.hs
+++ b/src/Text/Hakyll/Render.hs
@@ -1,6 +1,5 @@
 module Text.Hakyll.Render 
     ( depends,
-      writePage,
       render,
       renderAndConcat,
       renderChain,
@@ -29,13 +28,6 @@ depends file dependencies action = do
     valid <- isCacheValid (toDestination file) dependencies
     unless valid action
 
--- | Write a page to the site destination.
-writePage :: Page -> IO ()
-writePage page = do
-    let destination = toDestination $ getURL page
-    makeDirectories destination
-    B.writeFile destination (getBody page)
-
 -- | Render to a Page.
 render :: Renderable a
        => FilePath -- ^ Template to use for rendering.