diff options
| -rw-r--r-- | TODO | 1 | ||||
| -rw-r--r-- | src/Blog.hs | 2 | ||||
| -rw-r--r-- | src/Main.hs | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/TODO b/TODO new file mode 100644 index 000000000000..2c6b5c9312c3 --- /dev/null +++ b/TODO @@ -0,0 +1 @@ +* create entirely new CouchDB views to return the blog IDs in descending order diff --git a/src/Blog.hs b/src/Blog.hs index 0709dd3a3b2a..7b39fe5c9928 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -77,7 +77,7 @@ renderEntries entries topText = H.div ! A.class_ "innerBox" $ do H.div ! A.class_ "innerBoxTop" $ toHtml topText H.div ! A.class_ "innerBoxMiddle" $ do H.ul $ - sequence_ $ reverse $ map showEntry entries + sequence_ . reverse $ map showEntry entries where showEntry :: Entry -> Html showEntry e = H.li $ do diff --git a/src/Main.hs b/src/Main.hs index 60da9946461d..debf02e3cc18 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -64,7 +64,7 @@ tryEntry (Just entry) = toResponse $ blogTemplate eLang eTitle $ renderEntry ent showIndex :: BlogLang -> ServerPart Response showIndex lang = do - entries <- getLatest lang [("limit", toJSON (6 :: Int)), ("descending", toJSON True)] + entries <- getLatest lang [("limit", toJSON (7 :: Int)), ("descending", toJSON True)] ok $ toResponse $ blogTemplate lang "" $ renderEntries entries (topText lang) showMonth :: Int -> Int -> BlogLang -> ServerPart Response |