From e2cec0c7a7d56058773f3534c202e1b85f57baff Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Mon, 16 Oct 2023 19:08:27 +0200
Subject: reformat using new hindent (cuteness +63)

---
 Utils.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'Utils.hs')

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.)
-- 
cgit v1.2.3