Fix hlint suggestion.

[haeredes.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index f322baae83511743b8ceb4648f9966bddbf42e4a..6b276b7980b9b5687493f6b72ab46590d5fb9b9d 100644 (file)
--- 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