@@ -11,23 +11,24 @@ module Text.Hakyll.Page
1111import qualified Data.Map as M
1212import qualified Data.List as L
1313import qualified Data.ByteString.Lazy.Char8 as B
14−import Data.Maybe
15−import Control.Monad
14+import Data.Maybe (fromMaybe)
1615
17−import System.FilePath
16+import System.FilePath (FilePath, takeExtension)
1817import System.IO
1918
2019import Text.Hakyll.File
21−import Text.Hakyll.Util
20+import Text.Hakyll.Util (trim)
2221import Text.Hakyll.Renderable
2322import Text.Pandoc
2423
24+import Text.Template (Context)
25+
2526-- | A Page is basically key-value mapping. Certain keys have special
2627-- meanings, like for example url, body and title.
27−data Page = Page (M.Map B.ByteString B.ByteString)
28+data Page = Page Context
2829
2930-- | Create a Page from a key-value mapping.
30−fromContext :: (M.Map B.ByteString B.ByteString) -> Page
31+fromContext :: Context -> Page
3132fromContext = Page
3233
3334-- | Obtain a value from a page. Will resturn an empty string when nothing is