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

does not cache if TTL is 0.

Browse Source
This commit is contained in:
Kazu Yamamoto 2017-11-14 15:03:32 +09:00
parent b4e02e9053
commit c5c9735826
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Network/DNS/LookupRaw.hs
View File

@ -79,14 +79,15 @@ lookupCacheSection section rlv dom typ cconf = do
-> insertNegative cconf c key v ttl
_ -> return () -- does not cache anything
return v
Right rss -> do
let rds = map rdata rss
v = Right rds
Right rss0 -> do
let rds0 = map rdata rss0
rss = filter ((/= 0) . rrttl) rss0
rds = map rdata rss
case map rrttl rss of
[] -> return () -- does not cache anything
ttls -> let ttl = minimum ttls
in insertPositive cconf c key v ttl
return v
in insertPositive cconf c key (Right rds) ttl
return $ Right rds0
Just (_,x) -> return x
where
isTypeOf t ResourceRecord{..} = rrtype == t