Hello community, here is the log from the commit of package ghc-asn1-types for openSUSE:Factory checked in at 2019-06-30 10:21:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-asn1-types (Old) and /work/SRC/openSUSE:Factory/.ghc-asn1-types.new.4615 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-asn1-types" Sun Jun 30 10:21:28 2019 rev:8 rq:712500 version:0.3.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-asn1-types/ghc-asn1-types.changes 2018-10-25 08:22:27.163908442 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-asn1-types.new.4615/ghc-asn1-types.changes 2019-06-30 10:21:29.479619264 +0200 @@ -1,0 +2,6 @@ +Mon Jun 24 02:01:32 UTC 2019 - [email protected] + +- Update asn1-types to version 0.3.3. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- asn1-types-0.3.2.tar.gz New: ---- asn1-types-0.3.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-asn1-types.spec ++++++ --- /var/tmp/diff_new_pack.yU23ce/_old 2019-06-30 10:21:29.991620059 +0200 +++ /var/tmp/diff_new_pack.yU23ce/_new 2019-06-30 10:21:29.995620065 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-asn1-types # -# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name asn1-types Name: ghc-%{pkg_name} -Version: 0.3.2 +Version: 0.3.3 Release: 0 Summary: ASN.1 types License: BSD-3-Clause ++++++ asn1-types-0.3.2.tar.gz -> asn1-types-0.3.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/asn1-types-0.3.2/Data/ASN1/Types/String.hs new/asn1-types-0.3.3/Data/ASN1/Types/String.hs --- old/asn1-types-0.3.2/Data/ASN1/Types/String.hs 2015-12-19 08:32:06.000000000 +0100 +++ new/asn1-types-0.3.3/Data/ASN1/Types/String.hs 2019-06-23 15:26:50.000000000 +0200 @@ -148,18 +148,23 @@ b1 = fromIntegral (v .&. 0xff) decodeUTF32 :: ByteString -> String -decodeUTF32 b - | (B.length b `mod` 4) /= 0 = error "not a valid UTF32 string" - | otherwise = fromUTF32 $ B.unpack b - where fromUTF32 (a:b:c:d:l) = - let v :: Word32 - v = (fromIntegral a `shiftL` 24) .|. - (fromIntegral b `shiftL` 16) .|. - (fromIntegral c `shiftL` 8) .|. - (fromIntegral d) - in toEnum (fromIntegral v) : fromUTF32 l - fromUTF32 [] = [] - fromUTF32 _ = error "decodeUTF32: internal error" +decodeUTF32 bs + | (B.length bs `mod` 4) /= 0 = error "not a valid UTF32 string" + | otherwise = fromUTF32 0 + where w32ToChar :: Word32 -> Char + w32ToChar = toEnum . fromIntegral + fromUTF32 ofs + | ofs == B.length bs = [] + | otherwise = + let a = B.index bs ofs + b = B.index bs (ofs+1) + c = B.index bs (ofs+2) + d = B.index bs (ofs+3) + v = (fromIntegral a `shiftL` 24) .|. + (fromIntegral b `shiftL` 16) .|. + (fromIntegral c `shiftL` 8) .|. + (fromIntegral d) + in w32ToChar v : fromUTF32 (ofs+4) encodeUTF32 :: String -> ByteString encodeUTF32 s = B.pack $ concatMap (toUTF32 . fromEnum) s where toUTF32 v = [b0,b1,b2,b3] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/asn1-types-0.3.2/asn1-types.cabal new/asn1-types-0.3.3/asn1-types.cabal --- old/asn1-types-0.3.2/asn1-types.cabal 2015-12-19 08:32:06.000000000 +0100 +++ new/asn1-types-0.3.3/asn1-types.cabal 2019-06-23 15:55:10.000000000 +0200 @@ -1,5 +1,5 @@ Name: asn1-types -Version: 0.3.2 +Version: 0.3.3 Description: ASN.1 standard types License: BSD3 License-file: LICENSE @@ -11,7 +11,7 @@ Category: Data stability: experimental Cabal-Version: >=1.6 -Homepage: http://github.com/vincenthz/hs-asn1-types +Homepage: http://github.com/vincenthz/hs-asn1 Library Build-Depends: base >= 3 && < 5 @@ -29,4 +29,4 @@ source-repository head type: git - location: git://github.com/vincenthz/hs-asn1-types + location: git://github.com/vincenthz/hs-asn1
