ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Slightly remedy indentation

This commit is contained in:
Niels G. W. Serup 2024-09-26 23:13:28 +02:00
parent 6c36a53ec9
commit 831ab700b9
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
byg/src/SiteGenerator.hs
View File

@ -14,11 +14,15 @@ thumbnailImageFilename filename = do
makeImageHTML :: Token (FilePath, FilePath) -> DepGenM' Text makeImageHTML :: Token (FilePath, FilePath) -> DepGenM' Text
makeImageHTML t = do makeImageHTML t = do
(thumbnail, actual) <- untupleDepGenM t (thumbnail, actual) <- untupleDepGenM t
appendTexts (inject "<p><a href=\"", appendTexts (
appendTexts (toText actual, inject "<p><a href=\"",
appendTexts (inject "\"><img src=\"", appendTexts (
appendTexts (toText thumbnail, toText actual,
inject "\"></a></p>")))) appendTexts (
inject "\"><img src=\"",
appendTexts (
toText thumbnail,
inject "\"></a></p>"))))
handleRecipeDir :: Token FilePath -> Token Template -> Token FilePath -> Token FilePath -> DepGenM () handleRecipeDir :: Token FilePath -> Token Template -> Token FilePath -> Token FilePath -> DepGenM ()
handleRecipeDir outputDir template indexName dir = do handleRecipeDir outputDir template indexName dir = do