hsdns 1.4.2 → 1.4.3

raw patch · 2 files changed

+12/−17 lines, 2 filesdep ~networkPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: network

API changes (from Hackage documentation)

Files

• ADNS/Base.hsc +5/−5
• hsdns.cabal +7/−12

@@ -268,13 +268,13 @@   peek ptr    = do     h <- #{peek adns_rr_hostaddr, host} ptr     hstr <- assert (h /= nullPtr) (peekCString h)-    st <- #{peek adns_rr_hostaddr, astatus} ptr-    nadr <- #{peek adns_rr_hostaddr, naddrs} ptr :: IO #{type adns_status}+    st <- #{peek adns_rr_hostaddr, astatus} ptr :: IO #{type adns_status}+    nadr <- #{peek adns_rr_hostaddr, naddrs} ptr :: IO CInt     aptr <- #{peek adns_rr_hostaddr, addrs} ptr     adrs <- if (nadr > 0)                 then peekArray (fromEnum nadr) aptr                 else return []-    return (RRHostAddr hstr (StatusCode st) adrs)+    return (RRHostAddr hstr (StatusCode (fromEnum st)) adrs)  -- |Original definition: --@@ -363,7 +363,7 @@   alignment _ = alignment (undefined :: CInt)   poke _ _    = fail "poke is not defined for Network.DNS.ADNS.Answer"   peek ptr    = do-    sc <- #{peek adns_answer, status} ptr+    sc <- #{peek adns_answer, status} ptr :: IO #{type adns_status}     cn <- #{peek adns_answer, cname} ptr >>= maybePeek peekCString     ow <- #{peek adns_answer, owner} ptr >>= maybePeek peekCString     et <- #{peek adns_answer, expires} ptr@@ -373,7 +373,7 @@     rrsp <- #{peek adns_answer, rrs} ptr     r <- peekResp rt rrsp (fromEnum sz) (fromEnum rs)     return Answer-        { status  = StatusCode sc+        { status  = StatusCode (fromEnum sc)         , cname   = cn         , owner   = ow         , expires = et

@@ -1,9 +1,10 @@ Name:                   hsdns-Version:                1.4.2+Version:                1.4.3 Copyright:              (c) 2004-2010 Peter Simons License:                LGPL License-File:           COPYING.LESSER-Author:                 Peter Simons <simons@cryp.to>, Lutz Donnerhacke <lutz@iks-jena.de>, Григорий Холомьёв <omever@gmail.com>+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 Category:               Foreign, Network@@ -24,11 +25,10 @@                         output is printed in the order in which the DNS responses                         arrive:                         .-                        > $ ./adns-reverse-lookup xyz.example.org ecrc.de www.example.com www.cryp.to-                        > OK: www.example.com <-> 208.77.188.166-                        > ERR: xyz.example.org: cannot resolve A-                        > FAIL: www.cryp.to -> 195.234.152.69 -> ["research.cryp.to"]-                        > FAIL: ecrc.de -> 127.0.0.1 -> ["localhost"]+                        > $ ./adns-reverse-lookup cryp.to localhost www.example.com+                        > OK: localhost <-> 127.0.0.1+                        > FAIL: cryp.to -> 217.19.183.102 -> ["zuse.cryp.to"]+                        > OK: www.example.com <-> 192.0.32.10 Cabal-Version:          >= 1.6 Build-Type:             Simple Tested-With:            GHC == 6.12.1@@ -36,11 +36,6 @@ Extra-Source-Files:     example/adns-reverse-lookup.hs                         example/adns-srv-test.hs                         example/adns-test-and-traverse.hs--Source-Repository this-  Tag:                  v1.4.2-  Type:                 git-  Location:             git://gitorious.org/hsdns/mainline.git  Source-Repository head   Type:                 git