fixup! fixup! [#93] Add support for basic html tags

src/Xrefcheck/Scanners/Markdown.hs

@@ -273,7 +273,7 @@ removeIgnored = withIgnoreMode . cataNodeWithParentNodeInfo remove
 
 findAttributes :: [Text] -> [Attribute Text] -> Maybe Text
 findAttributes (map T.toLower -> attrs) =
-  fmap snd . find (\(attr, _) -> T.toLower attr `elem` attrs)
+  fmap snd . find ((`elem` attrs) . T.toLower . fst)
 
 isLink :: Text -> Bool
 isLink (parseTags -> tags) = case safeHead tags of
@@ -282,7 +282,6 @@ isLink (parseTags -> tags) = case safeHead tags of
       || T.toLower tag == "img" && isJust (findAttributes ["src"] attrs)
   _ -> False
 
-
 -- | Custom `foldMap` for source tree.
 foldNode :: (Monoid a, Monad m) => (Node -> m a) -> Node -> m a
 foldNode action node@(Node _ _ subs) = do
@@ -353,8 +352,7 @@ nodeExtractInfo input@(Node _ _ nSubs) = do
                 attributes <- case tag of
                   TagOpen a attrs | T.toLower a == "a" -> Just attrs
                   _ -> Nothing
-                (_, name) <- find (\(field, _) -> T.toLower field `elem` ["name", "id"]) attributes
-                pure name
+                findAttributes ["name", "id"] attributes
 
           case mName of
             Just aName -> do
@@ -402,7 +400,6 @@ nodeExtractInfo input@(Node _ _ nSubs) = do
                 _ -> pure mempty
             _ -> pure mempty
 
-
 -- | Check if there is `ignore all` at the beginning of the file,
 -- ignoring preceding comments if there are any.
 checkIgnoreAllFile :: [Node] -> Bool

tests/golden/check-html/check-html.md

@@ -35,3 +35,9 @@ text <a href=#seven>Seven</a> text
 
 <!-- xrefcheck: ignore link -->
 text <a href=https://serokell.io/404>serokell404</a> text
+
+<!-- xrefcheck: ignore link -->
+<img src=https://serokell.io/404>
+
+<!-- xrefcheck: ignore link -->
+text <img src=https://serokell.io/404> text