Many changes...

[haskell-dns.git] / DNSUnitTest.hs

diff --git a/DNSUnitTest.hs b/DNSUnitTest.hs
index 76a677d9e4deb963e2c3dd062f1f07ea55c81310..e907c3b8acd16c8029b880d235d144eebb88da05 100644 (file)
--- a/DNSUnitTest.hs
+++ b/DNSUnitTest.hs
@@ -25,9 +25,10 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              , hdIsRecursionAvailable  = False
                              , hdResponseCode          = NoError
                              }
-               , msgQuestions   = [ Question {
+               , msgQuestions   = [ wrapQuestion $
+                                    Question {
                                       qName  = mkDomainName "mail.cielonegro.org."
-                                    , qType  = wrapQueryType CNAME
+                                    , qType  = CNAME
                                     , qClass = IN
                                     }
                                   ]
@@ -59,9 +60,10 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              , hdIsRecursionAvailable  = False
                              , hdResponseCode          = NoError
                              }
-               , msgQuestions   = [ Question {
+               , msgQuestions   = [ wrapQuestion $
+                                    Question {
                                       qName  = mkDomainName "mail.cielonegro.org."
-                                    , qType  = wrapQueryType CNAME
+                                    , qType  = CNAME
                                     , qClass = IN
                                     }
                                   ]