ChaosZone/chaoszone.cz
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

blabla

Browse Source
This commit is contained in:
nek0 2017-11-10 16:47:02 +01:00
parent bb565e0ff8
commit 3abe426e37
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Main.hs
View File

@ -62,7 +62,7 @@ main = do
posts <- fmap (take 5) . recentFirst =<< loadAll "site/posts/*" posts <- fmap (take 5) . recentFirst =<< loadAll "site/posts/*"
let indexCtx = listField "posts" postCtx (return posts) <> let indexCtx = listField "posts" postCtx (return posts) <>
constField "title" "Home" <> constField "title" "Home" <>
defaultConteontext defaultContext
getResourceBody getResourceBody
>>= applyAsTemplate indexCtx >>= applyAsTemplate indexCtx
>>= renderPandoc >>= renderPandoc