From 8346c1d32f36ee5dc13537d2ea880901a696d801 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 19 Dec 2014 22:35:40 +0100 Subject: [PATCH] raising feed limits --- Handler/RootFeed.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/RootFeed.hs b/Handler/RootFeed.hs index 0756dc7..afc0ba8 100644 --- a/Handler/RootFeed.hs +++ b/Handler/RootFeed.hs @@ -150,7 +150,7 @@ getRootFeedRssR = getRootFeedR getRootFeedR :: RepFeed a => Handler a getRootFeedR = do - recentMedia <- runDB $ selectList [] [Desc MediumTime, LimitTo 10] + recentMedia <- runDB $ selectList [] [Desc MediumTime, LimitTo 100] renderFeed Parameters { pTitle = "Eidolon :: Latest media" , pLink = HomeR @@ -167,7 +167,7 @@ getAlbumFeedR :: RepFeed a => AlbumId -> Handler a getAlbumFeedR albumId = do album <- runDB $ get404 albumId url <- getUrlRender - recentMedia <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTime, LimitTo 10] + recentMedia <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTime, LimitTo 100] renderFeed Parameters { pTitle = "Eidolon :: Latest media in album " `T.append` (albumTitle album) , pLink = AlbumR albumId