Require dns >= 1.4 and use its 'normalize' function.
[list-remote-forwards.git] / src / Report.hs
index b15da98b251b67d822e1ae655fcd9ca27563066b..82409c42ef95a71b7fd346520cc3c85e40805d2b 100644 (file)
@@ -16,12 +16,13 @@ import Database.HDBC (
   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 DNS ( lookup_mxs, normalize )
+import DNS ( lookup_mxs )
 import MxList ( MxList(..) )
 
 -- Type synonyms to make the signatures below a little more clear.