@@ -131,9 +131,15 @@ checkFile filePath = do
131 let urls = getUrls $ TS.parseTags contents
131 let urls = getUrls $ TS.parseTags contents
132 forM_ urls $ \url -> do
132 forM_ urls $ \url -> do
133 Logger.debug logger $ "Checking link " ++ url
133 Logger.debug logger $ "Checking link " ++ url
134− if isExternal url
134+ checkUrl filePath url
137+--------------------------------------------------------------------------------
138+checkUrl :: FilePath -> String -> Checker ()
139+checkUrl filePath url
135− then checkExternalUrl url
140+ | isExternal url = checkExternalUrl url
141+ | "mailto:" `isPrefixOf` url = ok url
136− else checkInternalUrl filePath url
142+ | otherwise = checkInternalUrl filePath url
139--------------------------------------------------------------------------------
145--------------------------------------------------------------------------------