From 63a3000f9cab6446ce40cf6d9671123baee6c22b Mon Sep 17 00:00:00 2001 From: Simonas Kazlauskas Date: Wed, 3 Apr 2013 15:26:51 +0300 Subject: Account for scheme-relative URLs http://url.spec.whatwg.org/#concept-scheme-relative-url --- src/Hakyll/Web/Html.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Web') diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index 4053003..37e517d 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -120,7 +120,7 @@ toSiteRoot = emptyException . joinPath . map parent -------------------------------------------------------------------------------- -- | Check if an URL links to an external HTTP(S) source isExternal :: String -> Bool -isExternal url = any (flip isPrefixOf url) ["http://", "https://"] +isExternal url = any (flip isPrefixOf url) ["http://", "https://", "//"] -------------------------------------------------------------------------------- -- cgit v1.2.3