deduplication of code
This commit is contained in:
parent
091af5f9c7
commit
0b91d4f69f
1 changed files with 1 additions and 13 deletions
14
src/Main.hs
14
src/Main.hs
|
@ -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"
|
||||
|
|
Loading…
Reference in a new issue