diff options
| author | Vincent Ambo <vincent@kivra.com> | 2015-11-21T16·24+0100 |
|---|---|---|
| committer | Vincent Ambo <vincent@kivra.com> | 2015-11-21T16·24+0100 |
| commit | 9f33d98db59d6c5c1997ce55eb7be219089bd8b0 (patch) | |
| tree | 71bb15243f42779f80f576dacdf2f54f59848bff /src/Server.hs | |
| parent | cfea17dc0d69de8e5e2e27433a068d36efa2d1b1 (diff) | |
[blog] Implement new and simpler design
Diffstat (limited to 'src/Server.hs')
| -rw-r--r-- | src/Server.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Server.hs b/src/Server.hs index 30cf422a83c5..6996583f5ddb 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -40,7 +40,6 @@ tazBlog acid resDir = do adminHandler acid -- this checks auth , method GET >> (ok $ toResponse adminLogin) , method POST >> processLogin acid ] - , dirs "static/blogv40.css" $ serveBlogStyle , dir "static" $ staticHandler resDir , blogHandler acid EN , notFound $ toResponse $ showError NotFound DE @@ -96,7 +95,7 @@ showIndex acid lang = do entries <- query' acid (LatestEntries lang) (page :: Maybe Int) <- optional $ lookRead "page" ok $ toResponse $ blogTemplate lang "" $ - renderEntries False (eDrop page entries) (topText lang) (Just $ showLinks page lang) + renderEntries False (eDrop page entries) (Just $ showLinks page lang) where eDrop :: Maybe Int -> [a] -> [a] eDrop (Just i) = drop ((i-1) * 6) |