dns 2.0.10 → 2.0.11
raw patch · 3 files changed
+8/−10 lines, 3 filesdep ~bytestringPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: bytestring
API changes (from Hackage documentation)
Files
- Network/DNS/Resolver.hs +5/−5
- Network/DNS/StateBinary.hs +2/−2
- dns.cabal +1/−3
Network/DNS/Resolver.hs view
@@ -440,11 +440,11 @@ Just res -> return $ Right res #if mingw32_HOST_OS == 1- -- Windows does not support sendAll in Network.ByteString.Lazy.- -- This implements sendAll with Haskell Strings.- sendAll sock bs = do- sent <- send sock (LB.unpack bs)- when (sent < fromIntegral (LB.length bs)) $ sendAll sock (LB.drop (fromIntegral sent) bs)+-- Windows does not support sendAll in Network.ByteString.Lazy.+-- This implements sendAll with Haskell Strings.+sendAll sock bs = do+sent <- send sock (LB.unpack bs)+when (sent < fromIntegral (LB.length bs)) $ sendAll sock (LB.drop (fromIntegral sent) bs) #endif isIllegal :: Domain -> Bool
Network/DNS/StateBinary.hs view
@@ -125,7 +125,7 @@ getWord16be = do a <- word8' b <- word8'- return $ a * 256 + b+ return $ a * 0x100 + b get32 :: SGet Word32 get32 = ST.lift getWord32be <* addPosition 4@@ -136,7 +136,7 @@ b <- word8' c <- word8' d <- word8'- return $ a * 1677721 + b * 65536 + c * 256 + d+ return $ a * 0x1000000 + b * 0x10000 + c * 0x100 + d getInt8 :: SGet Int getInt8 = fromIntegral <$> get8
dns.cabal view
@@ -1,5 +1,5 @@ Name: dns-Version: 2.0.10+Version: 2.0.11 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3@@ -30,7 +30,6 @@ , attoparsec , binary , bytestring- , bytestring-builder , conduit >= 1.1 , conduit-extra >= 1.1 , containers@@ -45,7 +44,6 @@ , attoparsec , binary , bytestring- , bytestring-builder , conduit >= 1.1 , conduit-extra >= 1.1 , containers