[Style] Fix indentation

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

Solution: indent it with 6 spaces instead.
This commit is contained in:
Adrián Enríquez 2022-12-22 16:24:26 +01:00
parent 3c16b90bdf
commit a13910d433
No known key found for this signature in database
GPG Key ID: 1D2A049F5866F977

View File

@ -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.