hsdns 1.3 → 1.4
raw patch · 3 files changed
+5/−5 lines, 3 filesdep ~basedep ~containersdep ~network
Dependency ranges changed: base, containers, network
Files
- ADNS/Resolver.hs +2/−2
- README +2/−2
- hsdns.cabal +1/−1
ADNS/Resolver.hs view
@@ -26,7 +26,7 @@ import Control.Concurrent.MVar import Control.Monad ( when ) import Data.List ( sortBy )-import Data.Map ( Map )+import Data.Map ( Map ) import qualified Data.Map as Map import Network ( HostName ) import Network.Socket ( HostAddress )@@ -166,7 +166,7 @@ r <- adnsWait dns case r of Nothing -> return (RState dns qs, False)- Just (q,a) -> do mv <- Map.lookup q qs+ Just (q,a) -> do mv <- maybe (fail "inconsistent ADNS state") return (Map.lookup q qs) putMVar mv a return (RState dns (Map.delete q qs), True) when more (resolveLoop mst)
README view
@@ -1,7 +1,7 @@ An asynchronous DNS resolver for Haskell_ ========================================= -:Latest Release: hsdns-1.3.tar.gz_+:Latest Release: hsdns-1.4.tar.gz_ :Darcs: darcs_ get http://cryp.to/hsdns/ Synopsis@@ -56,6 +56,6 @@ .. _Reference Documentation: docs/index.html -.. _hsdns-1.3.tar.gz: http://cryp.to/hsdns/hsdns-1.3.tar.gz+.. _hsdns-1.4.tar.gz: http://cryp.to/hsdns/hsdns-1.4.tar.gz .. _adns-reverse-lookup.hs: example/adns-reverse-lookup.hs
hsdns.cabal view
@@ -1,5 +1,5 @@ Name: hsdns-Version: 1.3+Version: 1.4 Author: Peter Simons <simons@cryp.to>, Lutz Donnerhacke <lutz@iks-jena.de> Maintainer: Peter Simons <simons@cryp.to>