hsdns 1.5 → 1.6
raw patch · 3 files changed
+11/−13 lines, 3 filesdep ~basedep ~containersdep ~network
Dependency ranges changed: base, containers, network
Files
- ADNS/Endian.hs +2/−1
- ADNS/Resolver.hs +2/−6
- hsdns.cabal +7/−6
ADNS/Endian.hs view
@@ -13,6 +13,7 @@ module ADNS.Endian ( Endian(..), endian, readWord32, readWord16 ) where import Foreign+import System.IO.Unsafe -- |Signify the system's native byte order according to -- significance of bytes from low addresses to high addresses.@@ -28,7 +29,7 @@ {-# NOINLINE endian #-} endian :: Endian endian =- unsafePerformIO $+ System.IO.Unsafe.unsafePerformIO $ allocaArray (sizeOf (undefined :: Word32)) $ \p -> do let val = 0x01020304 :: Word32 poke p val
ADNS/Resolver.hs view
@@ -55,9 +55,7 @@ resolveA :: Resolver -> HostName -> IO (Either Status [HostAddress]) resolveA resolver x = do Answer rc _ _ _ rs <- resolver x A [] >>= takeMVar- if rc /= sOK- then return (Left rc)- else return (Right [ addr | RRA (RRAddr addr) <- rs ])+ return (if rc /= sOK then Left rc else Right [addr | RRA (RRAddr addr) <- rs]) -- |Resolve a hostname's 'SRV' records. @@ -82,9 +80,7 @@ resolvePTR :: Resolver -> HostAddress -> IO (Either Status [HostName]) resolvePTR resolver x = do Answer rc _ _ _ rs <- resolver (toPTR x) PTR [] >>= takeMVar- if rc /= sOK- then return (Left rc)- else return (Right [ addr | RRPTR addr <- rs ])+ return (if rc /= sOK then Left rc else Right [ addr | RRPTR addr <- rs ]) -- |Resolve the mail exchangers for a hostname. The returned -- list may contain more than one entry per hostname, in
hsdns.cabal view
@@ -1,12 +1,13 @@ Name: hsdns-Version: 1.5-Copyright: (c) 2004-2010 Peter Simons-License: LGPL+Version: 1.6+Copyright: Peter Simons+License: LGPL-3 License-File: COPYING.LESSER Author: Peter Simons <simons@cryp.to>, Lutz Donnerhacke <lutz@iks-jena.de>, Григорий Холомьёв <omever@gmail.com>, Evan Rinehart <ebr@sciresearch.com> Maintainer: Peter Simons <simons@cryp.to>-Homepage: http://gitorious.org/hsdns+Homepage: http://github.com/peti/hsdns+Bug-Reports: http://github.com/peti/hsdns/issues Category: Foreign, Network Synopsis: Asynchronous DNS Resolver Description: This library provides an asynchronous DNS resolver on top@@ -31,7 +32,7 @@ > OK: www.example.com <-> 192.0.32.10 Cabal-Version: >= 1.6 Build-Type: Simple-Tested-With: GHC == 6.12.3+Tested-With: GHC >= 6.12.3 && <= 7.6.2 Extra-Source-Files: example/adns-reverse-lookup.hs example/adns-srv-test.hs@@ -39,7 +40,7 @@ Source-Repository head Type: git- Location: git://gitorious.org/hsdns/mainline.git+ Location: git://github.com/peti/hsdns.git Library Build-Depends: base >= 3 && < 5, network, containers