Add more code documentation.

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

diff --git a/src/TSN/FeedHosts.hs b/src/TSN/FeedHosts.hs
index 58831e5cc2fd5d06b87c30792d55444af37d94ea..81f57aa53f1506d06821036e7fa8d9d81c2a52a6 100644 (file)
--- a/src/TSN/FeedHosts.hs
+++ b/src/TSN/FeedHosts.hs
@@ -13,16 +13,22 @@ where
 
 -- DC is needed only for the DCT.Configured instance of String.
 import qualified Data.Configurator as DC()
-import qualified Data.Configurator.Types as DCT
+import qualified Data.Configurator.Types as DCT (
+  Configured,
+  Value( List ),
+  convert )
 import Data.Data (Data)
 import System.Console.CmdArgs.Default (Default(..))
 import Data.Typeable (Typeable)
 
 
+-- | A (wrapper around a) list of hostnames that supply the XML feed.
+--
 newtype FeedHosts =
   FeedHosts { get_feed_hosts :: [String] }
     deriving (Data, Show, Typeable)
 
+
 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