X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FDNS%2FMessage.hs;h=fe595b4942e66686b17003eda1aa1ce4c9426577;hb=7a09a987b0369db0c013fb10272329c733ffc8a1;hp=48bda1d1043bbf43ded6cd074d3b3d5290c38af0;hpb=36d4f44389465b6b5ac8472af768b5a19704ee06;p=haskell-dns.git

diff --git a/Network/DNS/Message.hs b/Network/DNS/Message.hs
index 48bda1d..fe595b4 100644
--- a/Network/DNS/Message.hs
+++ b/Network/DNS/Message.hs
@@ -10,14 +10,17 @@ module Network.DNS.Message
     , DomainName
     , DomainLabel
     , TTL
+
+    , QueryType
+    , QueryClass
     , RecordType
     , RecordClass
 
     , SOAFields(..)
     , WKSFields(..)
 
-    , SomeQ
-    , SomeRR
+    , SomeQ(..)
+    , SomeRR(..)
 
     , A(..)
     , NS(..)
@@ -901,4 +904,4 @@ wrapQuestion :: (QueryType qt, QueryClass qc) => Question qt qc -> SomeQ
 wrapQuestion = SomeQ
 
 wrapRecord :: (RecordType rt dt, RecordClass rc) => ResourceRecord rt rc dt -> SomeRR
-wrapRecord = SomeRR
\ No newline at end of file
+wrapRecord = SomeRR