nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

raising feed limits

Browse source
This commit is contained in:
nek0 2014-12-19 22:35:40 +01:00
parent 22cf2d54da
commit 8346c1d32f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/RootFeed.hs
View file

@ -150,7 +150,7 @@ getRootFeedRssR = getRootFeedR
getRootFeedR :: RepFeed a => Handler a getRootFeedR :: RepFeed a => Handler a
getRootFeedR = do getRootFeedR = do
recentMedia <- runDB $ selectList [] [Desc MediumTime, LimitTo 10] recentMedia <- runDB $ selectList [] [Desc MediumTime, LimitTo 100]
renderFeed Parameters renderFeed Parameters
{ pTitle = "Eidolon :: Latest media" { pTitle = "Eidolon :: Latest media"
, pLink = HomeR , pLink = HomeR
@ -167,7 +167,7 @@ getAlbumFeedR :: RepFeed a => AlbumId -> Handler a
getAlbumFeedR albumId = do getAlbumFeedR albumId = do
album <- runDB $ get404 albumId album <- runDB $ get404 albumId
url <- getUrlRender url <- getUrlRender
recentMedia <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTime, LimitTo 10] recentMedia <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTime, LimitTo 100]
renderFeed Parameters renderFeed Parameters
{ pTitle = "Eidolon :: Latest media in album " `T.append` (albumTitle album) { pTitle = "Eidolon :: Latest media in album " `T.append` (albumTitle album)
, pLink = AlbumR albumId , pLink = AlbumR albumId