Minor documentation fixes; create all (even internal) docs with `make doc`.

[dead/htsn.git] / src / FeedHosts.hs

diff --git a/src/FeedHosts.hs b/src/FeedHosts.hs
index b3fcc4827cd9688bed202d9c8b15669122644298..58f82f57ae9d4ad29cec82c59a5ac29f02952cb2 100644 (file)
--- 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"]