X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FDNS.hs;h=6010fc96d6d8e27c7a5377ec25b8dbb5e1622037;hp=c319a9fbb387f66ae7a047dee33d119c6cbc5428;hb=8e5a377920002012c38066a2d21b6393a78c677a;hpb=d73de26c7c5a72da9d7d64f6c1ed91c3ea2b8dd0

diff --git a/src/DNS.hs b/src/DNS.hs
index c319a9f..6010fc9 100644
--- 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