diff options
Diffstat (limited to 'BackupLog.hs')
-rw-r--r-- | BackupLog.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/BackupLog.hs b/BackupLog.hs index 8e48bcd..802528f 100644 --- a/BackupLog.hs +++ b/BackupLog.hs @@ -37,11 +37,13 @@ instance FromJSON BackupLog -- Including the password entropy does let an attacker avoid trying -- weak passwords and go right to passwords that are strong enough, but -- this should only half the password crack time at worst. -data BackupEvent = BackupSkipped SecretKeySource | BackupMade - { backupServers :: [ServerName] - , backupSecretKeySource :: SecretKeySource - , backupPasswordEntropy :: Int - } +data BackupEvent + = BackupSkipped SecretKeySource + | BackupMade + { backupServers :: [ServerName] + , backupSecretKeySource :: SecretKeySource + , backupPasswordEntropy :: Int + } deriving (Show, Generic) instance ToJSON BackupEvent |