hriemann 0.3.2.1 → 0.3.2.2

raw patch · 2 files changed

+4/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hriemann.cabal +1/−1
• src/Network/Monitoring/Riemann/TCP.hs +3/−5

@@ -1,5 +1,5 @@ name:                hriemann-version:             0.3.2.1+version:             0.3.2.2 synopsis:            A Riemann Client for Haskell description:         A Riemann Client for Haskell homepage:            https://github.com/shmish111/hriemann

@@ -27,6 +27,7 @@   , SocketType(Stream)   , addrAddress   , addrFlags+  , addrFamily   , connect   , defaultHints   , defaultProtocol@@ -63,13 +64,10 @@ doConnect hn po = do   addrs <-     getAddrInfo-      (Just $ defaultHints {addrFlags = [AI_NUMERICSERV]})+      (Just $ defaultHints {addrFlags = [AI_NUMERICSERV], addrFamily = AF_INET})       (Just hn)       (Just $ show po)-  let family =-        if isSupportedFamily AF_INET6-          then AF_INET6-          else AF_INET+  let family = AF_INET   case addrs of     [] -> fail ("No accessible addresses in " ++ show addrs)     (addy:_) -> do