-- | A newtype around a list of Strings which represent the feed
-- hosts. This is all to avoid an orphan instance of Configured for
--- [String] if we had defined one in e.g. OptionalConfiguration.
+-- [String] if we had defined one in e.g. 'OptionalConfiguration'.
--
--- This was placed under the "TSN" namespace because its Default
+-- This was placed under the \"TSN\" namespace because its Default
-- instance is specific to TSN, even though otherwise it's just a
-- list of strings.
--
deriving (Data, Show, Typeable)
+-- | The default list of feed hosts. These were found by checking
+-- PTR records in the neighborhood of the IP address in use. There
+-- is a feed4.sportsnetwork.com, but it was not operational when
+-- this was written.
instance Default FeedHosts where
- -- | The default list of feed hosts. These were found by checking
- -- PTR records in the neighborhood of the IP address in use. There
- -- is a feed4.sportsnetwork.com, but it was not operational when
- -- this was written.
def = FeedHosts ["feed1.sportsnetwork.com",
"feed2.sportsnetwork.com",
"feed3.sportsnetwork.com"]