Code cleanup

diff --git a/ExampleDNSServer.hs b/ExampleDNSServer.hs
index f590caab054b7d58240b9ae1c0e9d208682c42fc..b366e14e1a9dc5d5b07b2ee57ced84ead301e358 100644 (file)
--- 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