superfluous newlines

This commit is contained in:
nek0 2016-03-03 22:54:50 +01:00
parent 4f19762e46
commit b32b6367f1

View file

@ -94,13 +94,11 @@ main = do
let archiveCtx = listField "posts" (postCtx tags) (return posts) <> let archiveCtx = listField "posts" (postCtx tags) (return posts) <>
constField "title" "Archives" <> constField "title" "Archives" <>
baseCtx baseCtx
makeItem "" makeItem ""
>>= loadAndApplyTemplate "templates/archive.html" archiveCtx >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
>>= loadAndApplyTemplate "templates/default.html" archiveCtx >>= loadAndApplyTemplate "templates/default.html" archiveCtx
>>= relativizeUrls >>= relativizeUrls
match "index.html" $ do match "index.html" $ do
route idRoute route idRoute
compile $ do compile $ do
@ -109,7 +107,6 @@ main = do
constField "title" "Home" <> constField "title" "Home" <>
field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <> field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <>
defaultContext defaultContext
getResourceBody getResourceBody
>>= applyAsTemplate indexCtx >>= applyAsTemplate indexCtx
>>= loadAndApplyTemplate "templates/default.html" baseCtx >>= loadAndApplyTemplate "templates/default.html" baseCtx