mirror of
https://github.com/danielepintore/dotfiles.git
synced 2026-06-15 20:25:13 +02:00
Fix: Parsing header links
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user