From 5487ed305120ee9c511878b90e9770ac30e20324 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 15:03:28 -0400 Subject: 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. --- BackupLog.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'BackupLog.hs') 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 -- cgit v1.2.3