diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-26 14:11:32 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-26 14:15:52 -0400 |
| commit | a1d5de397cd1b12080e4652965591827e6d50c86 (patch) | |
| tree | b2385eb31dba6e130cd2af2bd6b298cb0bc7bc0f /Types/Server.hs | |
| parent | 2c6a13f5db2671038efbfdcdb9c63f4758bd2e18 (diff) | |
| download | keysafe-a1d5de397cd1b12080e4652965591827e6d50c86.tar.gz | |
Randomize the server list.
May help avoid some correlations. Once there are many servers, will spread
the load out amoung them.
This commit was sponsored by Ethan Aubin.
Diffstat (limited to 'Types/Server.hs')
| -rw-r--r-- | Types/Server.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Types/Server.hs b/Types/Server.hs index 7be29ce..785dd24 100644 --- a/Types/Server.hs +++ b/Types/Server.hs @@ -28,12 +28,13 @@ instance ToJSON ServerName instance FromJSON ServerName data ServerLevel = Recommended | Alternate | Untrusted - deriving (Show, Eq, Ord) + deriving (Show, Eq, Ord, Bounded, Enum) data Server = Server { serverName :: ServerName , serverLevel :: ServerLevel , serverAddress :: [ServerAddress] -- ^ A server may have multiple addresses, or no current address. + , serverDesc :: String } deriving (Show, Eq, Ord) |