Pagwin/psb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

have home have a full list of posts

Browse source
This commit is contained in:
Pagwin 2024-12-18 01:09:07 -05:00
parent 11f0f80daf
commit 189e8e09e6
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -158,9 +158,7 @@ home :: Rules ()
home = home =
outputDir </> "index.html" %> \target -> do outputDir </> "index.html" %> \target -> do
postPaths <- getPublishedPosts postPaths <- getPublishedPosts
posts <- posts <- sortOn (Ord.Down . postDate)
take 3
. sortOn (Ord.Down . postDate)
<$> forM postPaths readPost <$> forM postPaths readPost
let posts' = map fromPost posts let posts' = map fromPost posts
html <- applyTemplate "home.html" $ HM.singleton "posts" posts' html <- applyTemplate "home.html" $ HM.singleton "posts" posts'