diff options
| author | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·06+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·07+0100 |
| commit | 1247848d76712bad1e47b2b67969db3456f04e75 (patch) | |
| tree | 6f10329c2e2eec1ac4284dfec70676b1c5080031 /services/tazblog/src/Server.hs | |
| parent | 561ed1fbbb624ddc51f5a97f4a81354e458e64cd (diff) | |
refactor(tazblog): Implement HLint lints in all files r/64
Diffstat (limited to 'services/tazblog/src/Server.hs')
| -rw-r--r-- | services/tazblog/src/Server.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/services/tazblog/src/Server.hs b/services/tazblog/src/Server.hs index bec4d529092c..40129988393b 100644 --- a/services/tazblog/src/Server.hs +++ b/services/tazblog/src/Server.hs @@ -1,6 +1,5 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-} module Server where @@ -22,12 +21,12 @@ tmpPolicy :: BodyPolicy tmpPolicy = defaultBodyPolicy "/tmp" 0 200000 1000 runBlog :: Int -> String -> IO () -runBlog port respath = do +runBlog port respath = withCache "blog.tazj.in." $ \cache -> simpleHTTP nullConf {port = port} $ tazblog cache respath tazblog :: BlogCache -> String -> ServerPart Response -tazblog cache resDir = do +tazblog cache resDir = msum [ -- legacy language-specific routes dir "de" $ blogHandler cache, @@ -65,7 +64,7 @@ tryEntry (Just entry) = ok $ toResponse $ blogTemplate eTitle $ renderEntry entr eTitle = T.append ": " (title entry) offset :: Maybe Int -> Int -offset = maybe 0 ((*) pageSize) +offset = maybe 0 (pageSize *) showIndex :: BlogCache -> ServerPart Response showIndex cache = do |