superfluous newlines
This commit is contained in:
parent
4f19762e46
commit
b32b6367f1
1 changed files with 0 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue