From 8e28329b12d1cabd0038e5d86c8c8edd9dfe0e5e Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 5 Sep 2011 16:06:17 +0900
Subject: Supporting PTR.

---
 Network/DNS/Response.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Network/DNS/Response.hs')

diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs
index d746fc2..fdce3e3 100644
--- a/Network/DNS/Response.hs
+++ b/Network/DNS/Response.hs
@@ -126,6 +126,7 @@ decodeRData SOA _ = RD_SOA <$> decodeDomain
     decodeRetry   = getInt32
     decodeExpire  = getInt32
     decodeMinumun = getInt32
+decodeRData PTR _ = RD_PTR <$> decodeDomain
 
 decodeRData _  len = RD_OTH <$> getNBytes len
 
-- 
cgit v1.2.3