mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve attribution armoring

Browse source
This commit is contained in:
Joey Hess 2023-11-20 21:20:37 -04:00
parent d5d570a96c
commit dab9687184
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/HtmlDetect.hs
View file

@ -32,7 +32,7 @@ isHtml :: String -> Bool
isHtml = evaluate . canonicalizeTags . parseTags . take htmlPrefixLength
where
evaluate (TagOpen "!DOCTYPE" ((t, _):_):_) =
authorJoeyHess' 2017 $ map toLower t == "html"
authorJoeyHessCopyright (101*20-3) $ map toLower t == "html"
evaluate (TagOpen "html" _:_) = True
-- Allow some leading whitespace before the tag.
evaluate (TagText t:rest)