From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 31 Jul 2013 22:11:46 +0000 (-0400)
Subject: Fix hlint suggestion.
X-Git-Tag: 0.2.0~13
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=commitdiff_plain;h=73848fa79919aa6c9da8fb9fb87e3eb21b7672d4

Fix hlint suggestion.
---

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