@@ -98,7 +98,8 @@ readPageFromFile path = do
98 url <- toUrl path
98 url <- toUrl path
99 let sections = splitAtDelimiters $ lines contents
99 let sections = splitAtDelimiters $ lines contents
100 sectionsData = concat $ zipWith ($) sectionFunctions sections
100 sectionsData = concat $ zipWith ($) sectionFunctions sections
101+ context = M.fromList $
101− context = M.fromList $ ("url", url) : category ++ sectionsData
102+ ("url", url) : ("path", path) : category ++ sectionsData
103 return context
104 return context