* limiting amount of queries with couchDB's limit parameter

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 3c4537597611..60da9946461d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -64,14 +64,14 @@ tryEntry (Just entry) = toResponse $ blogTemplate eLang eTitle $ renderEntry ent
 
 showIndex :: BlogLang -> ServerPart Response
 showIndex lang = do
-    entries <- getLatest lang []
-    ok $ toResponse $ blogTemplate lang "" $ renderEntries entries 6 (topText lang)
+    entries <- getLatest lang [("limit", toJSON (6 :: Int)), ("descending", toJSON True)]
+    ok $ toResponse $ blogTemplate lang "" $ renderEntries entries (topText lang)
 
 showMonth :: Int -> Int -> BlogLang -> ServerPart Response
 showMonth y m lang = do
     entries <- getLatest lang $ makeQuery startkey endkey
     ok $ toResponse $ blogTemplate lang month 
-        $ renderEntries entries (length entries) month
+        $ renderEntries entries month
   where
     month = getMonth lang y  m
     startkey = JSArray [toJSON y, toJSON m]