diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-22 15:03:28 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-22 15:03:28 -0400 |
commit | 5487ed305120ee9c511878b90e9770ac30e20324 (patch) | |
tree | 0d9d937c2dfac7ba3ffaa1660e8c0c064ca5ef27 /BackupLog.hs | |
parent | 42b995ed82e26bc18d2a2874ceb65781bceab421 (diff) | |
download | keysafe-5487ed305120ee9c511878b90e9770ac30e20324.tar.gz |
In --autostart mode, check for gpg keys that have not been backed up, and offer to back them up.
Only ask once per key.
This commit was sponsored by Thomas Hochstein on Patreon.
Diffstat (limited to 'BackupLog.hs')
-rw-r--r-- | BackupLog.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/BackupLog.hs b/BackupLog.hs index 802528f..70ec699 100644 --- a/BackupLog.hs +++ b/BackupLog.hs @@ -46,6 +46,10 @@ data BackupEvent } deriving (Show, Generic) +matchesSecretKeySource :: SecretKeySource -> BackupLog -> Bool +matchesSecretKeySource a (BackupLog _ (BackupSkipped b)) = a == b +matchesSecretKeySource a (BackupLog _ (BackupMade { backupSecretKeySource = b })) = a == b + instance ToJSON BackupEvent instance FromJSON BackupEvent |