Safe Haskell	None
Language	Haskell2010

Codec.Encryption.OpenPGP.Expirations

Synopsis

data KeyState = KeyState {
- keyStateValid :: Bool
- keyStateSelfSignaturesKnown :: Bool
- keyStateHasEffectiveSelfSignature :: Bool
- keyStateExpirationTime :: Maybe UTCTime
}
keyStateAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> KeyState
effectiveKeyPreferencesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe [SigSubPacketPayload]
effectiveUIDPreferencesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> Text -> TK k -> Maybe [SigSubPacketPayload]
effectiveKeyPreferencesAtTimestamp :: forall (k :: TKKind). TKPrimaryPKPayload k => ThirtyTwoBitTimeStamp -> TK k -> Maybe [SigSubPacketPayload]
effectiveUIDPreferencesAtTimestamp :: forall (k :: TKKind). TKPrimaryPKPayload k => ThirtyTwoBitTimeStamp -> Text -> TK k -> Maybe [SigSubPacketPayload]
isTKTimeValid :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Bool
isPKTimeValidWithSelfSignatures :: UTCTime -> SomePKPayload -> [SignaturePayload] -> Bool
getKeyExpirationTimesFromSignature :: SignaturePayload -> [ThirtyTwoBitDuration]
isCertificationSig :: SignaturePayload -> Bool
signatureCreationTime :: SignaturePayload -> Maybe UTCTime
signatureExpirationTime :: SignaturePayload -> Maybe UTCTime
signatureExpirationDuration :: SignaturePayload -> Maybe ThirtyTwoBitDuration
firstSignatureExpirationDuration :: [SigSubPacket] -> Maybe ThirtyTwoBitDuration
signatureEffectiveAt :: UTCTime -> SignaturePayload -> Bool
addDurationToTime :: UTCTime -> ThirtyTwoBitDuration -> UTCTime
newestByCreationTime :: [(UTCTime, a)] -> Maybe (UTCTime, a)
keyFlagsFromSignature :: SignaturePayload -> Maybe (Set KeyFlag)
effectiveKeyFlagsAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe (Set KeyFlag)
effectiveSubkeyFlagsAt :: forall (k :: TKKind). (TKPrimaryPKPayload k, TKSubkeyPKPayload k) => UTCTime -> TK k -> Fingerprint -> Maybe (Set KeyFlag)
effectiveFeaturesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe (Set FeatureFlag)

Documentation

data KeyState Source #

Constructors

KeyState
Fields keyStateValid :: Bool keyStateSelfSignaturesKnown :: Bool keyStateHasEffectiveSelfSignature :: Bool keyStateExpirationTime :: Maybe UTCTime

Instances

Instances details

Show KeyState Source #
Instance details Defined in Codec.Encryption.OpenPGP.Expirations Methods showsPrec :: Int -> KeyState -> ShowS Source # show :: KeyState -> String Source # showList :: [KeyState] -> ShowS Source #
Eq KeyState Source #
Instance details Defined in Codec.Encryption.OpenPGP.Expirations Methods (==) :: KeyState -> KeyState -> Bool Source # (/=) :: KeyState -> KeyState -> Bool Source #

keyStateAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> KeyState Source #

effectiveKeyPreferencesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe [SigSubPacketPayload] Source #

effectiveUIDPreferencesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> Text -> TK k -> Maybe [SigSubPacketPayload] Source #

effectiveKeyPreferencesAtTimestamp :: forall (k :: TKKind). TKPrimaryPKPayload k => ThirtyTwoBitTimeStamp -> TK k -> Maybe [SigSubPacketPayload] Source #

effectiveUIDPreferencesAtTimestamp :: forall (k :: TKKind). TKPrimaryPKPayload k => ThirtyTwoBitTimeStamp -> Text -> TK k -> Maybe [SigSubPacketPayload] Source #

isTKTimeValid :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Bool Source #

isPKTimeValidWithSelfSignatures :: UTCTime -> SomePKPayload -> [SignaturePayload] -> Bool Source #

getKeyExpirationTimesFromSignature :: SignaturePayload -> [ThirtyTwoBitDuration] Source #

isCertificationSig :: SignaturePayload -> Bool Source #

signatureCreationTime :: SignaturePayload -> Maybe UTCTime Source #

signatureExpirationTime :: SignaturePayload -> Maybe UTCTime Source #

signatureExpirationDuration :: SignaturePayload -> Maybe ThirtyTwoBitDuration Source #

firstSignatureExpirationDuration :: [SigSubPacket] -> Maybe ThirtyTwoBitDuration Source #

signatureEffectiveAt :: UTCTime -> SignaturePayload -> Bool Source #

addDurationToTime :: UTCTime -> ThirtyTwoBitDuration -> UTCTime Source #

newestByCreationTime :: [(UTCTime, a)] -> Maybe (UTCTime, a) Source #

keyFlagsFromSignature :: SignaturePayload -> Maybe (Set KeyFlag) Source #

Extract KeyFlags from a single signature's hashed subpackets.

effectiveKeyFlagsAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe (Set KeyFlag) Source #

Get effective key flags for the primary key at a given timestamp. Finds the latest effective self-signature (direct key sig, UID self-cert, or UAT self-cert) and extracts KeyFlags from its hashed subpackets. Returns Nothing if no effective self-signature exists or if no KeyFlags subpacket is present.

effectiveSubkeyFlagsAt :: forall (k :: TKKind). (TKPrimaryPKPayload k, TKSubkeyPKPayload k) => UTCTime -> TK k -> Fingerprint -> Maybe (Set KeyFlag) Source #

Get effective key flags for a subkey at a given timestamp. Finds the subkey by fingerprint, then finds the latest effective subkey binding signature and extracts KeyFlags from its hashed subpackets.

effectiveFeaturesAt :: forall (k :: TKKind). TKPrimaryPKPayload k => UTCTime -> TK k -> Maybe (Set FeatureFlag) Source #

Get effective features for the primary key at a given timestamp. Finds the latest effective self-signature and extracts Features from its hashed subpackets.