This commit is contained in:
nek0 2016-05-10 00:51:58 +02:00
parent af4afb0a53
commit b0148185f3
1 changed files with 1 additions and 1 deletions

View File

@ -70,7 +70,7 @@ main = do
let url = toFilePath ident
compiled <- getResourceBody >>= renderPandoc
let pageCtx = paginateContext pages num
let ctx = (postCtx tags) <> pageCtx <> flattrCtx (urlEncode title) (urlEncode $ "htps://nek0.eu/" ++ url)
let ctx = (postCtx tags) <> pageCtx <> flattrCtx (urlEncode title) (urlEncode $ "https://nek0.eu/" ++ url)
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
_ <- saveSnapshot "content" compiled
loadAndApplyTemplate "templates/default.html" baseCtx full