X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FMain.hs;h=70fa2f57c842ebb34c96e2e268070065b2488530;hp=679a1ac1fe1d0dc3cf684420596676dde91e10e5;hb=e862342c38e41176a7ab300b6d7ed03cf0ffd6b2;hpb=b2a53e06f43162d4b23f7d16740d6e55275c1c1b

diff --git a/src/Main.hs b/src/Main.hs
index 679a1ac..70fa2f5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -17,6 +17,8 @@ import Network.DNS (
   ResolvConf(resolvInfo, resolvTimeout),
   defaultResolvConf,
   makeResolvSeed,
+  normalize,
+  normalizeCase,
   withResolver )
 import System.Exit (ExitCode(..), exitWith)
 import System.IO (hPutStrLn, stderr)
@@ -27,8 +29,6 @@ import DNS (
   LookupResult,
   lookupMX',
   lookupNS',
-  normalize,
-  normalize_case,
   resolve_address )
 import ExitCodes (exit_bad_server)
 import Timeout (Timeout(..))
@@ -81,7 +81,7 @@ main = do
 
   let normalize_function =
         if (no_append_root cfg)
-        then normalize_case
+        then normalizeCase
         else normalize
 
   -- Normalize the given names and delegates