kazu-yamamoto/dns
1
1
Fork 0
mirror of https://github.com/kazu-yamamoto/dns.git synced 2024-10-06 10:40:07 +03:00
Code Issues Projects Releases Wiki Activity

refactoring.

Browse Source
This commit is contained in:
Kazu Yamamoto 2017-11-16 12:38:19 +09:00
parent 2701642ae5
commit 76dfed7cc0
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Network/DNS/LookupRaw.hs
View File

@ -109,15 +109,15 @@ lookupCacheSection rlv dom typ cconf = do
case ex of
Left NameError -> do
let v = Left NameError
cacheNegatively cconf c key v ans
cacheNegative cconf c key v ans
return v
Left e -> return $ Left e
Right [] -> do
let v = Right []
cacheNegatively cconf c key v ans
cacheNegative cconf c key v ans
return v
Right rss0 -> do
cachePositively cconf c key rss0
cachePositive cconf c key rss0
return $ Right $ map rdata rss0
Just (_,x) -> return x
where
@ -125,8 +125,8 @@ lookupCacheSection rlv dom typ cconf = do
Just c = cache rlv
key = (dom,typ)
cachePositively :: CacheConf -> Cache -> Key -> [ResourceRecord] -> IO ()
cachePositively cconf c key rss0 = case ttls of
cachePositive :: CacheConf -> Cache -> Key -> [ResourceRecord] -> IO ()
cachePositive cconf c key rss0 = case ttls of
[] -> return () -- does not cache anything
_ -> insertPositive cconf c key (Right rds) $ minimum ttls
where
@ -141,10 +141,10 @@ insertPositive CacheConf{..} c k v ttl = when (ttl /= 0) $ do
where
life = fromIntegral (minimumTTL `max` (maximumTTL `min` ttl))
cacheNegatively :: CacheConf -> Cache -> Key -> Entry -> DNSMessage -> IO ()
cacheNegatively cconf c key v ans = case soas of
cacheNegative :: CacheConf -> Cache -> Key -> Entry -> DNSMessage -> IO ()
cacheNegative cconf c key v ans = case soas of
[] -> return () -- does not cache anything
soa:_ -> insertNegative cconf c key v $ rrttl soa
_ -> return () -- does not cache anything
where
soas = filter (SOA `isTypeOf`) $ authority ans