From: PHO <pho@cielonegro.org>
Date: Tue, 26 May 2009 02:52:46 +0000 (+0900)
Subject: Code cleanup
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=commitdiff_plain;h=68e58e5c4aaf0279f041c251e73e4aaccf616286

Code cleanup
---

diff --git a/ExampleDNSServer.hs b/ExampleDNSServer.hs
index f590caa..b366e14 100644
--- a/ExampleDNSServer.hs
+++ b/ExampleDNSServer.hs
@@ -21,25 +21,24 @@ main = runNamed cnf zoneFor
 
       zone :: Zone
       zone = Zone {
-               zoneName       = mkDN "cielonegro.org."
-             , zoneResponders = [ wrapResponder' $
-                                  do name <- getQueryName
-                                     if name == mkDN "ns.cielonegro.org." then
-                                         respond ResourceRecord {
-                                                       rrName  = name
-                                                     , rrType  = A
-                                                     , rrClass = IN
-                                                     , rrTTL   = 9600
-                                                     , rrData  = inetAddr "127.0.0.1"
-                                                     }
-                                       else
-                                         fail "FIXME: we want to throw NameError but we can't for now"
-                                ]
+               zoneName            = mkDN "cielonegro.org."
+             , zoneResponders      = [ wrapResponder responderA
+                                     ]
              , zoneIsAuthoritative = True
              }
 
-      wrapResponder' :: Responder A IN () -> SomeResponder
-      wrapResponder' = wrapResponder
+      responderA :: Responder A IN ()
+      responderA = do name <- getQueryName
+                      if name == mkDN "ns.cielonegro.org." then
+                          respond ResourceRecord {
+                                        rrName  = name
+                                      , rrType  = A
+                                      , rrClass = IN
+                                      , rrTTL   = 9600
+                                      , rrData  = inetAddr "127.0.0.1"
+                                      }
+                        else
+                          fail "FIXME: we want to throw NameError but we can't for now"
 
 
 inetAddr :: String -> HostAddress