diff options
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 |