Add a doctest test suite.

[list-remote-forwards.git] / src / DNS.hs

diff --git a/src/DNS.hs b/src/DNS.hs
index c319a9fbb387f66ae7a047dee33d119c6cbc5428..6010fc96d6d8e27c7a5377ec25b8dbb5e1622037 100644 (file)
--- a/src/DNS.hs
+++ b/src/DNS.hs
@@ -8,7 +8,10 @@ import Network.DNS (
   makeResolvSeed,
   withResolver )
 
--- Slow since we create the resolver every time.
+
+-- | Retrieve all MX records for the given domain. This is somewhat
+--   inefficient, since we create the resolver every time.
+--
 lookup_mxs :: Domain -> IO [Domain]
 lookup_mxs domain = do
   default_rs <- makeResolvSeed defaultResolvConf