hw-ip 2.3.4.0 → 2.3.4.1

raw patch · 2 files changed

+9/−1 lines, 2 filesdep ~optparse-applicativePVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependency ranges changed: optparse-applicative

API changes (from Hackage documentation)

Files

• hw-ip.cabal +1/−1
• src/HaskellWorks/Data/Network/Ip/Ip.hs +8/−0

@@ -1,6 +1,6 @@ cabal-version: 2.2 name: hw-ip-version: 2.3.4.0+version: 2.3.4.1 license: BSD-3-Clause license-file: LICENSE copyright: 2018-2019 John Ky, David Turnbull, Jian Wan

@@ -21,6 +21,7 @@ import GHC.Generics import HaskellWorks.Data.Bits.BitWise import HaskellWorks.Data.Network.Ip.Range    (Range (..))+import HaskellWorks.Data.Network.Ip.SafeEnum import HaskellWorks.Data.Network.Ip.Validity import Text.Read @@ -59,6 +60,13 @@         case readMaybe s :: Maybe V6.IpAddress of           Just ip -> [(IpAddressV6 ip, "")]           Nothing -> []++instance SafeEnum IpAddress where+  safePred (IpAddressV4 ip) = IpAddressV4 <$> safePred ip+  safePred (IpAddressV6 ip) = IpAddressV6 <$> safePred ip++  safeSucc (IpAddressV4 ip) = IpAddressV4 <$> safeSucc ip+  safeSucc (IpAddressV6 ip) = IpAddressV6 <$> safeSucc ip  isCanonical :: IpBlock v -> Bool isCanonical (IpBlockV4 b) = V4.isCanonical b