From 73848fa79919aa6c9da8fb9fb87e3eb21b7672d4 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 31 Jul 2013 18:11:46 -0400
Subject: [PATCH] Fix hlint suggestion.

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.43.2