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

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
                                     }
                                   ]