rtnetlink 0.1.0.2 → 0.1.0.3
raw patch · 4 files changed
+13/−8 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +6/−2
- rtnetlink.cabal +1/−1
- src/System/Linux/RTNetlink/Link.hsc +1/−1
- tests/Main.hs +5/−4
ChangeLog.md view
@@ -1,12 +1,16 @@ # Revision history for rtnetlink +## 0.1.0.2 -- 2017-03-27++* Provide support for `base-4.8.*` by fixing `IsString` ambiguity in `LinkEther`.+ ## 0.1.0.2 -- 2017-03-26 -* Provide support for transformers-0.4.\*+* Provide support for `transformers-0.4.*`. ## 0.1.0.1 -- 2017-03-25 -* Provide support for base-4.7.\*+* Provide support for `base-4.7.*`. ## 0.1.0.0 -- 2017-03-24
rtnetlink.cabal view
@@ -1,5 +1,5 @@ name: rtnetlink-version: 0.1.0.2+version: 0.1.0.3 synopsis: Manipulate network devices, addresses, and routes on Linux description: A high-level, extensible, pure Haskell interface to the ROUTE_NETLINK subsystem of netlink for manipulating
src/System/Linux/RTNetlink/Link.hsc view
@@ -74,7 +74,7 @@ where hex w = hexdig (w `div` 0x10) : hexdig (w `rem` 0x10) : [] hexdig = (!!) "0123456789abcdef" . fromIntegral- s <:> t = s ++ ":" ++ t+ s <:> t = s ++ ":" ++ t :: String instance Serialize LinkEther where put (LinkEther a b c d e f) = put a >> put b >> put c >> put d >> put e >> put f get = LinkEther <$> get <*> get <*> get <*> get <*> get <*> get
tests/Main.hs view
@@ -141,10 +141,11 @@ context "when given a bad interface index" $ do it "throws an exception" $ do- indices <- runRTNL $ dump AnyInterface- let badIx = maximum indices + 1- prefix = IfPrefix 24- interface = IfInetAddress testAddress4 prefix badIx+ indices <- runRTNL $ dump AnyLink+ let LinkIndex n = maximum indices + 1+ badIx = IfIndex n+ prefix = IfPrefix 24+ interface = IfInetAddress testAddress4 prefix badIx runRTNL (create interface) `shouldThrow` anyIOException context "when given a silly prefix" $ do