X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FMain.hs;h=6b276b7980b9b5687493f6b72ab46590d5fb9b9d;hp=f322baae83511743b8ceb4648f9966bddbf42e4a;hb=73848fa79919aa6c9da8fb9fb87e3eb21b7672d4;hpb=2104fcab31ed92c308ce6b05c03d10f9f8b4cf16

diff --git a/src/Main.hs b/src/Main.hs
index f322baa..6b276b7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -98,8 +98,8 @@ main = do
   rs <- makeResolvSeed rc
 
   let lookup_function = case cfg of
-                          (NS _ _ _) -> lookupNS'
-                          (MX _ _ _) -> lookupMX'
+                          NS{} -> lookupNS'
+                          MX{} -> lookupMX'
 
   _ <- withResolver rs $ \resolver -> do
          -- Bad stuff happens if we try to run these lookups in parallel