From f480ee3b3975115485cdf4c109b492215146c879 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 30 Jun 2010 15:46:35 +0900
Subject: adding doc.

---
 Network/DNS/Resolver.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs
index a685d37..1e5ecf5 100644
--- a/Network/DNS/Resolver.hs
+++ b/Network/DNS/Resolver.hs
@@ -1,11 +1,28 @@
 {-|
   DNS Resolver and lookup functions.
+
+  Sample code:
+
+@
+    import qualified Network.DNS as DNS (lookup)
+    import Network.DNS hiding (lookup)
+    main :: IO ()
+    main = do
+        rs <- makeResolvSeed defaultResolvConf
+        withResolver rs $ \\resolver -> do
+            DNS.lookup resolver \"www.example.com\" A >>= print
+@
 -}
 
 module Network.DNS.Resolver (
+  -- * Documentation
+  -- ** Configuration for resolver
     FileOrNumericHost(..), ResolvConf(..), defaultResolvConf
+  -- ** Intermediate data type for resolver
   , ResolvSeed, makeResolvSeed
+  -- ** Type and function for resolver
   , Resolver, withResolver
+  -- ** Looking up functions
   , lookup, lookupRaw
   ) where
 
-- 
cgit v1.2.3