fixup non haddock comment to not be recognized as haddock comment.
This commit is contained in:
parent
a9e56e5c4b
commit
f90861119a
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue