1 files changed, 8 insertions, 4 deletions
diff --git a/Utils.hs b/Utils.hs
index 9c901cc..fa1bc09 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -75,8 +75,12 @@ addHeadingLinks cls = Text.Pandoc.Walk.walk go
       Header
         lvl
         attr
-        (inlines ++
-         [Link ("", [cls], []) [Str "#"] ("#" <> id, "Link to this section")])
+        (inlines
+           ++ [ Link
+                  ("", [cls], [])
+                  [Str "#"]
+                  ("#" <> id, "Link to this section")
+              ])
     go x = x
 
 -- | @"https://example.com" `hasUriScheme` "https"@
@@ -132,8 +136,8 @@ sourcePaths fp process = do
         | null ds = False
         | last ds `elem` notSource = True
         | otherwise = False
-  io (getRecursiveContents (pure . ignoreDir . splitDirectories) fp) >>=
-    foldMapM process
+  io (getRecursiveContents (pure . ignoreDir . splitDirectories) fp)
+    >>= foldMapM process
 
 -- | Given a path to a file, try to make the path writable by making all
 -- directories on the path. (Interned from Hakyll.)