X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=DNSUnitTest.hs;h=e907c3b8acd16c8029b880d235d144eebb88da05;hb=caf521ccd3edd8a9f042d1aa8a097b98cf40c1da;hp=76a677d9e4deb963e2c3dd062f1f07ea55c81310;hpb=298473c933e7ad1e101f4db7a7ee115745098235;p=haskell-dns.git

diff --git a/DNSUnitTest.hs b/DNSUnitTest.hs
index 76a677d..e907c3b 100644
--- 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
                                     }
                                   ]