@@ -19,11 +19,12 @@ import Test.QuickCheck
1919import Text.Pandoc
2020import Data.Binary
2121
22−import Text.Hakyll.Internal.Cache
23−import Text.Hakyll.Hakyll
24−import Text.Hakyll.Util (trim)
2522import Text.Hakyll.Context (Context)
23+import Text.Hakyll.File
24+import Text.Hakyll.Hakyll
2625import Text.Hakyll.Regex (substituteRegex, matchesRegex)
26+import Text.Hakyll.Util (trim)
27+import Text.Hakyll.Internal.Cache
2728
2829-- | A Page is basically key-value mapping. Certain keys have special
2930-- meanings, like for example url, body and title.
@@ -121,9 +122,10 @@ readPageFromFile path = do
121122
122123 -- Read file.
123124 contents <- liftIO $ readFile path
125+ url <- toUrl path
124126 let sections = splitAtDelimiters $ lines contents
125127 sectionsData = concat $ zipWith ($) sectionFunctions sections
126− context = M.fromList $ category ++ sectionsData
128+ context = M.fromList $ ("url", url) : category ++ sectionsData
127129
128130 return context
129131 where