diff options
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) |