X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FFeedHosts.hs;h=58f82f57ae9d4ad29cec82c59a5ac29f02952cb2;hp=b3fcc4827cd9688bed202d9c8b15669122644298;hb=60aea8c7765bf2382b1d24d039f3951e00434e3c;hpb=4833dc57c60f4aeaa160ec5e599507653a47809b

diff --git a/src/FeedHosts.hs b/src/FeedHosts.hs
index b3fcc48..58f82f5 100644
--- a/src/FeedHosts.hs
+++ b/src/FeedHosts.hs
@@ -2,9 +2,9 @@
 
 -- | 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.
 --
@@ -29,11 +29,11 @@ newtype FeedHosts =
     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"]