diff options
| -rw-r--r-- | Network/DNS/Decode.hs | 7 | ||||
| -rw-r--r-- | Network/DNS/Resolver.hs | 11 |
2 files changed, 8 insertions, 10 deletions
diff --git a/Network/DNS/Decode.hs b/Network/DNS/Decode.hs index bb376da..b598d97 100644 --- a/Network/DNS/Decode.hs +++ b/Network/DNS/Decode.hs @@ -167,12 +167,11 @@ decodeDomain :: SGet Domain decodeDomain = do pos <- getPosition c <- getInt8 - if c == 0 - then return "" + if c == 0 then + return "" else do let n = getValue c - if isPointer c - then do + if isPointer c then do d <- getInt8 let offset = n * 256 + d fromMaybe (error $ "decodeDomain: " ++ show offset) <$> pop offset diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs index f040383..195ce39 100644 --- a/Network/DNS/Resolver.hs +++ b/Network/DNS/Resolver.hs @@ -158,9 +158,7 @@ lookup :: Resolver -> Domain -> TYPE -> IO (Maybe [RDATA]) lookup rlv dom typ = (>>= toRDATA) <$> lookupRaw rlv dom typ where {- CNAME hack - dom' = if "." `isSuffixOf` dom - then dom - else dom ++ "." + dom' = if "." `isSuffixOf` dom then dom else dom ++ "." correct r = rrname r == dom' && rrtype r == typ -} correct r = rrtype r == typ @@ -183,9 +181,10 @@ lookupRaw rlv dom typ = do q = makeQuestion dom typ check seqno res = do let hdr = header res - if identifier hdr == seqno - then Just res - else Nothing + if identifier hdr == seqno then + Just res + else + Nothing #if mingw32_HOST_OS == 1 -- Windows does not support sendAll in Network.ByteString.Lazy. |