maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* added TODO file

Browse source
This commit is contained in:
Vincent Ambo 2012-03-03 04:05:19 +01:00
parent 7114876693
commit 485e271475
3 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -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