diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:40:01 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:40:01 +0900 |
commit | 6dc94202a991b716be72acdc5cee367b2e8ef081 (patch) | |
tree | f897381218636d611e76f8c936a0c1776903fcc3 /SimpleServer.hs | |
parent | 04c4afa6f7af8be5bd9ac0871ac42510350ac2f0 (diff) |
hlint.
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 |