Fixed bug in date rendering.
commit65b1a9cf00ef8c2f895416ee5ad5f299d05be9b8
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateFri 5 Mar 2010, 19:02 (17 years ago)
parentf1b1e17
src/Text/Hakyll/Internal/Page.hs+2−1
@@ -98,7 +98,8 @@ readPageFromFile path = do
9898 url <- toUrl path
9999 let sections = splitAtDelimiters $ lines contents
100100 sectionsData = concat $ zipWith ($) sectionFunctions sections
101− context = M.fromList $ ("url", url) : category ++ sectionsData
101+ context = M.fromList $
102+ ("url", url) : ("path", path) : category ++ sectionsData
102103
103104 return context
104105 where