From b32b6367f1a4b55d9f14a9b52bfe65d930eae69c Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 3 Mar 2016 22:54:50 +0100 Subject: [PATCH] superfluous newlines --- src/Main.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 4d328e3..b62d547 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -94,13 +94,11 @@ main = do let archiveCtx = listField "posts" (postCtx tags) (return posts) <> constField "title" "Archives" <> baseCtx - makeItem "" >>= loadAndApplyTemplate "templates/archive.html" archiveCtx >>= loadAndApplyTemplate "templates/default.html" archiveCtx >>= relativizeUrls - match "index.html" $ do route idRoute compile $ do @@ -109,7 +107,6 @@ main = do constField "title" "Home" <> field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <> defaultContext - getResourceBody >>= applyAsTemplate indexCtx >>= loadAndApplyTemplate "templates/default.html" baseCtx