iproute 1.4.0 → 1.5.0

raw patch · 5 files changed

+19/−1 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- Data.IP: ipv4 :: IP -> IPv4

- Data.IP: ipv4range :: IPRange -> AddrRange IPv4

- Data.IP: ipv6 :: IP -> IPv6

- Data.IP: ipv6range :: IPRange -> AddrRange IPv6

+ Data.IP: [ipv4] :: IP -> IPv4

+ Data.IP: [ipv4range] :: IPRange -> AddrRange IPv4

+ Data.IP: [ipv6] :: IP -> IPv6

+ Data.IP: [ipv6range] :: IPRange -> AddrRange IPv6

+ Data.IP.Internal: AddrRange :: !a -> !a -> {-# UNPACK #-} !Int -> AddrRange a

+ Data.IP.Internal: IP4 :: IPv4Addr -> IPv4

+ Data.IP.Internal: IP6 :: IPv6Addr -> IPv6

+ Data.IP.Internal: [addr] :: AddrRange a -> !a

+ Data.IP.Internal: [mask] :: AddrRange a -> !a

+ Data.IP.Internal: [mlen] :: AddrRange a -> {-# UNPACK #-} !Int

+ Data.IP.Internal: data AddrRange a

+ Data.IP.Internal: newtype IPv4

+ Data.IP.Internal: newtype IPv6

- Data.IP.RouteTable: delete :: Routable k => AddrRange k -> IPRTable k a -> IPRTable k a

+ Data.IP.RouteTable: delete :: (Routable k) => AddrRange k -> IPRTable k a -> IPRTable k a

- Data.IP.RouteTable: insert :: Routable k => AddrRange k -> a -> IPRTable k a -> IPRTable k a

+ Data.IP.RouteTable: insert :: (Routable k) => AddrRange k -> a -> IPRTable k a -> IPRTable k a

Files

Data/IP/Internal.hs +7/−0
Data/IP/RouteTable/Internal.hs +4/−0
iproute.cabal +2/−1
test/IPSpec.hs +3/−0
test/RouteTableSpec.hs +3/−0

+ Data/IP/Internal.hs view

@@ -0,0 +1,7 @@+module Data.IP.Internal ( IPv4(..)+                        , IPv6(..)+                        , AddrRange(..)+                        ) where++import Data.IP.Addr+import Data.IP.Range

Data/IP/RouteTable/Internal.hs view

@@ -1,3 +1,5 @@+{-# LANGUAGE CPP #-}+ {-|   IP routing table is a tree of 'AddrRange'   to search one of them on the longest@@ -7,7 +9,9 @@ -} module Data.IP.RouteTable.Internal where +#if __GLASGOW_HASKELL__ < 709 import Control.Applicative ((<$>),(<*>),pure)+#endif import Control.Monad import Data.Bits import Data.Foldable (Foldable(..))

iproute.cabal view

@@ -1,5 +1,5 @@ Name:                   iproute-Version:                1.4.0+Version:                1.5.0 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3@@ -19,6 +19,7 @@   Default-Language:     Haskell2010   GHC-Options:          -Wall   Exposed-Modules:      Data.IP+                        Data.IP.Internal                         Data.IP.RouteTable   Other-Modules:        Data.IP.Addr                         Data.IP.Mask

test/IPSpec.hs view

@@ -1,9 +1,12 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# OPTIONS_GHC -fno-warn-orphans #-}  module IPSpec where +#if __GLASGOW_HASKELL__ < 709 import Control.Applicative+#endif import Data.IP import Safe (readMay) import Test.Hspec

test/RouteTableSpec.hs view

@@ -1,9 +1,12 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# OPTIONS_GHC -fno-warn-orphans #-}  module RouteTableSpec where +#if __GLASGOW_HASKELL__ < 709 import Control.Applicative+#endif import Control.Monad import Data.IP import Data.IP.RouteTable.Internal