Hello community, here is the log from the commit of package ghc-iproute for openSUSE:Factory checked in at 2020-11-19 11:58:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-iproute (Old) and /work/SRC/openSUSE:Factory/.ghc-iproute.new.5913 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-iproute" Thu Nov 19 11:58:40 2020 rev:4 rq:849157 version:1.7.10 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-iproute/ghc-iproute.changes 2020-09-07 22:02:56.518090141 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-iproute.new.5913/ghc-iproute.changes 2020-11-23 10:27:32.077162931 +0100 @@ -1,0 +2,6 @@ +Tue Nov 17 15:26:56 UTC 2020 - [email protected] + +- Update iproute to version 1.7.10. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- iproute-1.7.9.tar.gz iproute.cabal New: ---- iproute-1.7.10.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-iproute.spec ++++++ --- /var/tmp/diff_new_pack.Wn087K/_old 2020-11-23 10:27:32.701163636 +0100 +++ /var/tmp/diff_new_pack.Wn087K/_new 2020-11-23 10:27:32.705163641 +0100 @@ -19,13 +19,12 @@ %global pkg_name iproute %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.7.9 +Version: 1.7.10 Release: 0 Summary: IP Routing Table License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-appar-devel BuildRequires: ghc-byteorder-devel @@ -57,7 +56,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ iproute-1.7.9.tar.gz -> iproute-1.7.10.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/iproute-1.7.9/Data/IP/Builder.hs new/iproute-1.7.10/Data/IP/Builder.hs --- old/iproute-1.7.9/Data/IP/Builder.hs 2020-03-17 13:26:06.000000000 +0100 +++ new/iproute-1.7.10/Data/IP/Builder.hs 2020-11-17 01:27:02.000000000 +0100 @@ -1,6 +1,8 @@ {-# LANGUAGE BangPatterns #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE MagicHash #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoStrict #-} {-# LANGUAGE TupleSections #-} module Data.IP.Builder @@ -43,7 +45,6 @@ toB = P.liftFixedToBounded {-# INLINE toB #-} -{-# INLINE ipv4Bounded #-} ipv4Bounded :: P.BoundedPrim Word32 ipv4Bounded = quads >$< ((P.word8Dec >*< dotsep) >*< (P.word8Dec >*< dotsep)) @@ -57,24 +58,23 @@ {-# INLINE qfin #-} dotsep = const 0x2e >$< toB P.word8 --- | For each of the 32-bit chunks of an IPv6 address, encode how it should be --- displayed in the presentation form of the address, based its location --- relative to the "best gap", i.e. the left-most longest run of zeros. The --- "hi" and, or "lo" parts are accompanied by occasional units mapped to colons. +-- | For each 32-bit chunk of an IPv6 address, encode its display format in the +-- presentation form of the address, based on its location relative to the +-- "best gap", i.e. the left-most longest run of zeros. The "hi" (H) and/or +-- "lo" (L) 16 bits may be accompanied by colons (C) on the left and/or right. -- -data FF = CHL {-# UNPACK #-} ! Word32 -- ^ :<h>:<l> - | HL {-# UNPACK #-} ! Word32 -- ^ <h>:<l> - | NOP -- ^ nop - | COL -- ^ : - | CLO {-# UNPACK #-} ! Word32 -- ^ :<l> - | CC -- ^ : : - | CHC {-# UNPACK #-} ! Word32 -- ^ :<h>: - | HC {-# UNPACK #-} ! Word32 -- ^ <h>: +data FF = CHL Word32 -- ^ :<h>:<l> + | HL Word32 -- ^ <h>:<l> + | NOP -- ^ nop + | COL -- ^ : + | CC -- ^ : : + | CLO Word32 -- ^ :<l> + | CHC Word32 -- ^ :<h>: + | HC Word32 -- ^ <h>: -- Build an IPv6 address in conformance with -- [RFC5952](http://tools.ietf.org/html/rfc5952 RFC 5952). -- -{-# INLINE ipv6Bounded #-} ipv6Bounded :: P.BoundedPrim (Word32, Word32, Word32, Word32) ipv6Bounded = P.condB generalCase @@ -113,33 +113,16 @@ -- output32 :: P.BoundedPrim FF output32 = - P.condB ffCond03 - ( P.condB ffCond01 - ( P.condB ffCond0 - build_CHL -- :<h>:<l> - build_HL ) -- <h>:<l> - ( P.condB ffCond2 - build_NOP -- nop - build_COL ) ) -- : - ( P.condB ffCond45 - ( P.condB ffCond4 - build_CLO -- :<l> - build_CC ) -- : : - ( P.condB ffCond6 - build_CHC -- :<h>: - build_HC ) ) -- <h>: - - -- Branch selection predicates - ffCond03 = \case { CHL _ -> True; HL _ -> True; - NOP -> True; COL -> True; _ -> False } - ffCond01 = \case { CHL _ -> True; HL _ -> True; _ -> False } - ffCond45 = \case { CC -> True; CLO _ -> True; _ -> False } - ffCond0 = \case { CHL _ -> True; _ -> False } - ffCond2 = \case { NOP -> True; _ -> False } - ffCond4 = \case { CLO _ -> True; _ -> False } - ffCond6 = \case { CHC _ -> True; _ -> False } + P.condB (\case { CHL _ -> True; _ -> False }) build_CHL $ -- :hi:lo + P.condB (\case { HL _ -> True; _ -> False }) build_HL $ -- hi:lo + P.condB (\case { NOP -> True; _ -> False }) build_NOP $ -- + P.condB (\case { COL -> True; _ -> False }) build_COL $ -- : + P.condB (\case { CC -> True; _ -> False }) build_CC $ -- : : + P.condB (\case { CLO _ -> True; _ -> False }) build_CLO $ -- :lo + P.condB (\case { CHC _ -> True; _ -> False }) build_CHC $ -- :hi: + build_HC -- hi: - -- encoders for the seven field format (FF) cases. + -- encoders for the eight field format (FF) cases. -- build_CHL = (\ (CHL w) -> ( fstUnit (hi16 w), fstUnit (lo16 w) ) ) >$< (colsep >*< P.word16Hex) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/iproute-1.7.9/iproute.cabal new/iproute-1.7.10/iproute.cabal --- old/iproute-1.7.9/iproute.cabal 2020-03-17 13:26:06.000000000 +0100 +++ new/iproute-1.7.10/iproute.cabal 2020-11-17 01:27:02.000000000 +0100 @@ -1,5 +1,5 @@ Name: iproute -Version: 1.7.9 +Version: 1.7.10 Author: Kazu Yamamoto <[email protected]> Maintainer: Kazu Yamamoto <[email protected]> License: BSD3 _______________________________________________ openSUSE Commits mailing list -- [email protected] To unsubscribe, email [email protected] List Netiquette: https://en.opensuse.org/openSUSE:Mailing_list_netiquette List Archives: https://lists.opensuse.org/archives/list/[email protected]
