diff options
Diffstat (limited to 'BackupRecord.hs')
-rw-r--r-- | BackupRecord.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/BackupRecord.hs b/BackupRecord.hs index 39e07fa..6d150e1 100644 --- a/BackupRecord.hs +++ b/BackupRecord.hs @@ -34,7 +34,7 @@ import qualified Data.ByteString.Lazy as B data BackupRecord = BackupRecord { backupDate :: POSIXTime , backupServers :: [HostName] - , secretKeySource :: String + , secretKeySource :: SecretKeySource , passwordEntropy :: Int } deriving (Show, Generic) @@ -46,7 +46,7 @@ mkBackupRecord :: [Server] -> SecretKeySource -> Entropy UnknownPassword -> IO B mkBackupRecord servers sks (Entropy n) = BackupRecord <$> getPOSIXTime <*> pure (map serverName servers) - <*> pure (show sks) + <*> pure sks <*> pure n backupRecordFile :: IO FilePath |