Fix: Parsing header links

This commit is contained in:
2024-02-24 13:51:21 +01:00
parent 61e7d14266
commit ecb66c5fb4

View File

@@ -15,4 +15,4 @@ linkParser (Link attr txt (url, title)) = Link attr txt (newUrl, title)
linkParser x = x
isValidURL :: String -> Bool
isValidURL url = url =~ ("^((https?|ftp)://)*[a-zA-Z0-9]+(\\.[a-zA-Z0-9]+)+([/?].*)?$" :: String)
isValidURL url = url =~ ("(^(https?|ftp)://[a-zA-Z0-9]+(\\.[a-zA-Z0-9]+)+([/?].*)?$)|^(#)" :: String)