From 65b1a9cf00ef8c2f895416ee5ad5f299d05be9b8 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 5 Mar 2010 19:02:25 +0100
Subject: Fixed bug in date rendering.

---
 src/Text/Hakyll/Internal/Page.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Hakyll/Internal/Page.hs b/src/Text/Hakyll/Internal/Page.hs
index c91d7ae..657ea77 100644
--- a/src/Text/Hakyll/Internal/Page.hs
+++ b/src/Text/Hakyll/Internal/Page.hs
@@ -98,7 +98,8 @@ readPageFromFile path = do
     url <- toUrl path
     let sections = splitAtDelimiters $ lines contents
         sectionsData = concat $ zipWith ($) sectionFunctions sections
-        context = M.fromList $ ("url", url) : category ++ sectionsData
+        context = M.fromList $
+            ("url", url) : ("path", path) : category ++ sectionsData
 
     return context
   where
-- 
cgit v1.2.3