From 3eb522469e641e31d02fa060a1b48b93edbf7d84 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 14:08:36 -0400 Subject: record already-existing backup in log after restoring a secret key This will prevent --autostart from prompting to get the newly restored key backed up again. This commit was sponsored by Remy van Elst on Patreon. --- Types/Server.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Types') diff --git a/Types/Server.hs b/Types/Server.hs index e1b4191..a6d1ad9 100644 --- a/Types/Server.hs +++ b/Types/Server.hs @@ -17,12 +17,12 @@ type HostName = String -- hostnames. Using tor is highly recommended, to avoid correlation -- attacks. data ServerAddress = ServerAddress HostName Port - deriving (Show) + deriving (Show, Eq, Ord) -- | Name used in queuing uploads to the server. Should remain stable -- across keysafe versions. newtype ServerName = ServerName String - deriving (Show, Generic) + deriving (Show, Eq, Ord, Generic) instance ToJSON ServerName instance FromJSON ServerName @@ -32,4 +32,4 @@ data Server = Server , serverAddress :: [ServerAddress] -- ^ A server may have multiple addresses, or no current address. } - deriving (Show) + deriving (Show, Eq, Ord) -- cgit v1.2.3