diff --git a/byg/src/SiteGenerator.hs b/byg/src/SiteGenerator.hs
index 396840b..65a1a15 100644
--- 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