deduplication of code

This commit is contained in:
nek0 2016-03-03 23:43:02 +01:00
parent 091af5f9c7
commit 0b91d4f69f
1 changed files with 1 additions and 13 deletions

View File

@ -46,7 +46,7 @@ main = do
>>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls
match "about.md" $ do
match (fromList ["about.md", "imprint.md", "contact.md"]) $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" baseCtx
@ -57,18 +57,6 @@ main = do
compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" baseCtx
match "imprint.md" $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls
match "contact.md" $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls
pages <- buildPaginateWith
(return . map return . sort)
"posts/*.md"