yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixup non haddock comment to not be recognized as haddock comment.

Browse source
This commit is contained in:
Vincent Hanquez 2011-04-05 21:36:27 +01:00
parent a9e56e5c4b
commit f90861119a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Network/TLS/Extra/Certificate.hs
View file

@ -138,9 +138,9 @@ certificateVerifyDomain fqhn (X509 cert _ _ _:_) =
-- they won't have a wildcard meaning but will be match as normal star -- they won't have a wildcard meaning but will be match as normal star
-- character to the fqhn and inevitably will fail. -- character to the fqhn and inevitably will fail.
wildcardMatch l wildcardMatch l
-- * or *.com is always invalid -- <star>.com or <star> is always invalid
| length l < 2 = False | length l < 2 = False
-- *.com.<country> is always invalid -- <star>.com.<country> is always invalid
| length (head l) <= 2 && length (head $ drop 1 l) <= 3 && length l < 3 = False | length (head l) <= 2 && length (head $ drop 1 l) <= 3 && length l < 3 = False
| otherwise = | otherwise =
l == take (length l) (reverse $ splitDot fqhn) l == take (length l) (reverse $ splitDot fqhn)