Fix hlint suggestion.
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 31 Jul 2013 22:11:46 +0000 (18:11 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 31 Jul 2013 22:11:46 +0000 (18:11 -0400)
src/Main.hs

index f322baae83511743b8ceb4648f9966bddbf42e4a..6b276b7980b9b5687493f6b72ab46590d5fb9b9d 100644 (file)
@@ -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