22 lines
478 B
Haskell
22 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
|