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