diff options
| -rw-r--r-- | src/Hakyll/Check.hs | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index 73606b3..5c05aa5 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -131,9 +131,15 @@ checkFile filePath = do let urls = getUrls $ TS.parseTags contents forM_ urls $ \url -> do Logger.debug logger $ "Checking link " ++ url - if isExternal url - then checkExternalUrl url - else checkInternalUrl filePath url + checkUrl filePath url + + +-------------------------------------------------------------------------------- +checkUrl :: FilePath -> String -> Checker () +checkUrl filePath url + | isExternal url = checkExternalUrl url + | "mailto:" `isPrefixOf` url = ok url + | otherwise = checkInternalUrl filePath url -------------------------------------------------------------------------------- |