From a13910d433cc86930635c5302ba826e2e7e8928a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adri=C3=A1n=20Enr=C3=ADquez?= <adrian.enriquez@serokell.io>
Date: Thu, 22 Dec 2022 16:24:26 +0100
Subject: [PATCH] [Style] Fix indentation

Problem: our code contains a where statement with a 5-space indentation.

Solution: indent it with 6 spaces instead.
---
 src/Xrefcheck/Scanners/Markdown.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/Xrefcheck/Scanners/Markdown.hs b/src/Xrefcheck/Scanners/Markdown.hs
index 14f6827..f687616 100644
--- a/src/Xrefcheck/Scanners/Markdown.hs
+++ b/src/Xrefcheck/Scanners/Markdown.hs
@@ -327,18 +327,18 @@ nodeExtractInfo fp input@(Node _ _ nSubs) = do
 
         _ -> return mempty
 
-     where
-       extractLink url = do
-         let rName = nodeExtractText node
-             rPos = toPosition pos
-             link = if null url then rName else url
-         let (rLink, rAnchor) = case T.splitOn "#" link of
-                 [t]    -> (t, Nothing)
-                 t : ts -> (t, Just $ T.intercalate "#" ts)
-                 []     -> error "impossible"
-         return $ FileInfoDiff
-           (DList.singleton $ Reference {rName, rPos, rLink, rAnchor})
-           DList.empty
+      where
+        extractLink url = do
+          let rName = nodeExtractText node
+              rPos = toPosition pos
+              link = if null url then rName else url
+          let (rLink, rAnchor) = case T.splitOn "#" link of
+                  [t]    -> (t, Nothing)
+                  t : ts -> (t, Just $ T.intercalate "#" ts)
+                  []     -> error "impossible"
+          return $ FileInfoDiff
+            (DList.singleton $ Reference {rName, rPos, rLink, rAnchor})
+            DList.empty
 
 -- | Check if there is `ignore all` at the beginning of the file,
 -- ignoring preceding comments if there are any.