21 lines
478 B
Haskell
21 lines
478 B
Haskell
-- |
|
|
-- Module : Network.TLS.X509
|
|
-- License : BSD-style
|
|
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
|
|
-- Stability : experimental
|
|
-- Portability : unknown
|
|
--
|
|
-- X509 helpers
|
|
--
|
|
module Network.TLS.X509
|
|
( CertificateChain(..)
|
|
, Certificate(..)
|
|
, SignedCertificate
|
|
, getCertificate
|
|
, isNullCertificateChain
|
|
) where
|
|
|
|
import Data.X509
|
|
|
|
isNullCertificateChain :: CertificateChain -> Bool
|
|
isNullCertificateChain (CertificateChain l) = null l
|