From b0148185f37593640d2d2608ef9e6f76a13b9df7 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 10 May 2016 00:51:58 +0200 Subject: [PATCH] m( --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index e16ce97..a430209 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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