yogsototh/noodle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Limit index page to 30 polls and descending

Browse source
This commit is contained in:
Konrad Merz 2015-03-29 20:07:38 +02:00
parent 9dd91557a3
commit 7f89cfaf58
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

@ -119,7 +119,7 @@ getNewPollId id = unSqlBackendKey $ unPollKey id
allPolls = do
runSqlite "noodle.db" $ do
polls <- selectList ([] :: [Filter Poll]) []
polls <- selectList ([] :: [Filter Poll]) [LimitTo 30, Desc PollId]
return $ polls
getPollById id = do