Slightly remedy indentation

2024-09-26 23:13:28 +02:00
parent 6c36a53ec9
commit 831ab700b9
1 changed files with 9 additions and 5 deletions
--- a/byg/src/SiteGenerator.hs
+++ b/byg/src/SiteGenerator.hs
@@ -14,11 +14,15 @@ thumbnailImageFilename filename = do
 makeImageHTML :: Token (FilePath, FilePath) -> DepGenM' Text
 makeImageHTML t = do
  (thumbnail, actual) <- untupleDepGenM t
-  appendTexts (inject "<p><a href=\"",
-               appendTexts (toText actual,
-                            appendTexts (inject "\"><img src=\"",
-                                         appendTexts (toText thumbnail,
-                                                      inject "\"></a></p>"))))
+  appendTexts (
+    inject "<p><a href=\"",
+    appendTexts (
+        toText actual,
+        appendTexts (
+            inject "\"><img src=\"",
+            appendTexts (
+                toText thumbnail,
+                inject "\"></a></p>"))))

 handleRecipeDir :: Token FilePath -> Token Template -> Token FilePath -> Token FilePath -> DepGenM ()
 handleRecipeDir outputDir template indexName dir = do