Tissevert/hablo
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Restrict imports in Lucid + use '<.>' to delimit filename and extension

Browse source
This commit is contained in:
Tissevert 2020-03-23 09:40:41 +01:00
parent 5163d13ce8
commit 77fc715294
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/HTML.hs
View file

@ -14,7 +14,7 @@ import Control.Monad.Reader (ReaderT, asks)
import qualified Data.Map as Map (elems) import qualified Data.Map as Map (elems)
import qualified Data.Text.Lazy.IO as TextIO (writeFile) import qualified Data.Text.Lazy.IO as TextIO (writeFile)
import DOM (page) import DOM (page)
import Lucid import Lucid (renderTextT)
import Pretty ((.$)) import Pretty ((.$))
import System.FilePath.Posix ((</>), (<.>)) import System.FilePath.Posix ((</>), (<.>))
@ -22,12 +22,12 @@ articlesLists :: Monad m => Collection -> ReaderT Blog m [(FilePath, ArticlesLis
articlesLists (Collection {articlesFeatured, basePath, tag}) = do articlesLists (Collection {articlesFeatured, basePath, tag}) = do
limit <- take <$> (asks $skin.$previewArticlesCount) limit <- take <$> (asks $skin.$previewArticlesCount)
return [ return [
(basePath </> "index.html", ArticlesList { (basePath </> "index" <.> "html", ArticlesList {
tagged = tag tagged = tag
, full = False , full = False
, featured = limit articlesFeatured , featured = limit articlesFeatured
}) })
, (basePath </> "all.html", ArticlesList { , (basePath </> "all" <.> "html", ArticlesList {
tagged = tag tagged = tag
, full = True , full = True
, featured = articlesFeatured , featured = articlesFeatured