typo
This commit is contained in:
parent
964cfe55ed
commit
b92ad1a628
1 changed files with 1 additions and 1 deletions
|
@ -74,7 +74,7 @@ main = do
|
||||||
let url = toFilePath ident
|
let url = toFilePath ident
|
||||||
compiled <- getResourceBody >>= renderPandoc
|
compiled <- getResourceBody >>= renderPandoc
|
||||||
let pageCtx = paginateContext pages num
|
let pageCtx = paginateContext pages num
|
||||||
let ctx = (postCtx tags) <> pageCtx <> flattrCtx tagString (urlEncode title) (urlEncode $ "htps://nek0.eu" ++ url)
|
let ctx = (postCtx tags) <> pageCtx <> flattrCtx tagString (urlEncode title) (urlEncode $ "htps://nek0.eu/" ++ url)
|
||||||
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
|
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
|
||||||
_ <- saveSnapshot "content" compiled
|
_ <- saveSnapshot "content" compiled
|
||||||
loadAndApplyTemplate "templates/default.html" baseCtx full
|
loadAndApplyTemplate "templates/default.html" baseCtx full
|
||||||
|
|
Loading…
Reference in a new issue