diff options
Diffstat (limited to 'SimpleServer.hs')
| -rw-r--r-- | SimpleServer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SimpleServer.hs b/SimpleServer.hs index b01d864..401e7f4 100644 --- a/SimpleServer.hs +++ b/SimpleServer.hs @@ -48,7 +48,7 @@ proxyRequest Conf{..} rc req = do parseResponse responseEnum responseIter rs <- makeResolvSeed rc - withResolver rs $ \r -> do + withResolver rs $ \r -> (>>= check) <$> timeout' "proxy timeout" timeOut (worker r) where ident = identifier . header $ req @@ -59,7 +59,7 @@ proxyRequest Conf{..} rc req = do else trace "identifier not match" Nothing {-- - - 先尝试本地查询，查询不到就代理到真正的dns服务器 + - TBD --} handleRequest :: Conf -> ResolvConf -> DNSFormat -> IO (Maybe DNSFormat) handleRequest conf rc req = maybe (proxyRequest conf rc req) (trace "return A record" $ return . Just) mresponse |