diff options
| author | Vincent Ambo <viam@humac.com> | 2012-03-03T03·05+0100 |
|---|---|---|
| committer | Vincent Ambo <viam@humac.com> | 2012-03-03T03·05+0100 |
| commit | 485e27147574106d5925ea9ab880739d8e1c4f6e (patch) | |
| tree | 32dde7e271541a368cb5b809831c855276131843 /src/Main.hs | |
| parent | 7114876693cf5b2ce9ac4b7d7c5121aba4be94e2 (diff) | |
* added TODO file
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |