Worked on substitution.

1 files changed, 0 insertions, 9 deletions

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 85fd062..83ca654 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -4,7 +4,6 @@ module Text.Hakyll.Page
     , getValue
     , getBody
     , readPage
-    , writePage
     ) where
 
 import qualified Data.Map as M
@@ -121,7 +120,6 @@ readPage pagePath = do
             [ (B.pack "body", rendered)
             , packPair ("url", url)
             , packPair ("path", pagePath)
-            , packPair ("root", toRoot url)
             ] ++ map packPair context
 
     -- Cache if needed
@@ -130,13 +128,6 @@ 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 = (:[]) . getPagePath