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.

1 files changed, 3 insertions, 3 deletions

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)