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

chore(blog): Minor changes to integrate DNS based backend

Browse source
This commit is contained in:
Vincent Ambo 2019-08-22 18:58:11 +01:00
parent c5ef3e01b2
commit bd47122afb
5 changed files with 18 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
services/tazblog/src/Server.hs
View file

@ -21,7 +21,7 @@ instance FromReqURI BlogLang where
"en" -> Just EN
_ -> Nothing
pageSize :: Integer
pageSize :: Int
pageSize = 3
tmpPolicy :: BodyPolicy
@ -68,12 +68,12 @@ tryEntry (Just entry) _ = ok $ toResponse $ blogTemplate eLang eTitle $ renderEn
eTitle = T.append ": " (title entry)
eLang = lang entry
offset :: Maybe Integer -> Integer
offset :: Maybe Int -> Int
offset = maybe 0 ((*) pageSize)
showIndex :: BlogCache -> BlogLang -> ServerPart Response
showIndex cache lang = do
(page :: Maybe Integer) <- optional $ lookRead "page"
(page :: Maybe Int) <- optional $ lookRead "page"
entries <- listEntries cache (offset page) pageSize
ok $ toResponse $ blogTemplate lang "" $
renderEntries entries (Just $ showLinks page lang)