X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed.hs;h=7abdcd083461ba6720975c2645cba0f403271949;hp=57570cfffdc87a39de49cf065571198e08144f9e;hb=f3ad40fd6916408dde9b9e6237b41828d90c1e34;hpb=845dca95afa7e073e62520ef3c4840b3b078bdad

diff --git a/Network/DNS/Named.hs b/Network/DNS/Named.hs
index 57570cf..7abdcd0 100644
--- a/Network/DNS/Named.hs
+++ b/Network/DNS/Named.hs
@@ -23,8 +23,8 @@ import           System.Posix.Signals
 import           System.IO
 
 
-runNamed :: Config -> (DomainName -> IO (Maybe Zone)) -> IO ()
-runNamed cnf findZone
+runNamed :: ZoneFinder zf => Config -> zf -> IO ()
+runNamed cnf zf
     = withSocketsDo $
       do installHandler sigPIPE Ignore Nothing
 
@@ -118,7 +118,7 @@ runNamed cnf findZone
 
       handleQuestion :: SomeQ -> IO (Builder ())
       handleQuestion (SomeQ q)
-          = do zoneM <- findZone (qName q)
+          = do zoneM <- findZone zf (qName q)
                case zoneM of
                  Nothing
                      -> return $ do unauthorise