haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check for a colon and slashes after http

Browse Source
This commit is contained in:
Greg Weber 2014-04-25 07:54:04 -07:00
parent 9fa5a23597
commit c5df0b0bf4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-static/Yesod/EmbeddedStatic/Css/Util.hs
View File

@ -60,12 +60,12 @@ checkForImage n@("background-image") v = parseBackgroundImage n v
checkForImage n v = (n, Left v)
parseBackgroundImage :: T.Text -> T.Text -> EithUrl
parseBackgroundImage n v = case P.parseOnly parseUrl v of
Left _ -> (n, Left v) -- Can't parse url
Right url
| "http" `T.isPrefixOf` url -> (n, Left v)
| "/" `T.isPrefixOf` url -> (n, Left v)
| otherwise -> (n, Right $ UrlReference url)
parseBackgroundImage n v = (n, case P.parseOnly parseUrl v of
Left _ -> Left v -- Can't parse url
Right url ->
if any (`T.isPrefixOf` url) ["http://", "https://", "/"]
then Left v
else Right $ UrlReference url)
parseCssWith :: (T.Text -> T.Text -> EithUrl) -> T.Text -> Either String Css
parseCssWith urlParser contents =