Require dns >= 1.4 and use its 'normalize' function.

[list-remote-forwards.git] / src / Report.hs

diff --git a/src/Report.hs b/src/Report.hs
index b15da98b251b67d822e1ae655fcd9ca27563066b..82409c42ef95a71b7fd346520cc3c85e40805d2b 100644 (file)
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -16,12 +16,13 @@ import Database.HDBC (
   sFetchAllRows')
 import Database.HDBC.Sqlite3 ( connectSqlite3 )
 import Data.List ( (\\) )
   sFetchAllRows')
 import Database.HDBC.Sqlite3 ( connectSqlite3 )
 import Data.List ( (\\) )

+import Network.DNS.Utils ( normalize )

 import System.Console.CmdArgs.Default ( Default(..) )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 
 import Configuration ( Configuration(..) )
 import System.Console.CmdArgs.Default ( Default(..) )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 
 import Configuration ( Configuration(..) )

-import DNS ( lookup_mxs, normalize )
+import DNS ( lookup_mxs )

 import MxList ( MxList(..) )
 
 -- Type synonyms to make the signatures below a little more clear.
 import MxList ( MxList(..) )
 
 -- Type synonyms to make the signatures below a little more clear.