Hello community,
here is the log from the commit of package ghc-asn1-types for
openSUSE:Leap:15.2 checked in at 2020-02-19 18:37:42
Comparing /work/SRC/openSUSE:Leap:15.2/ghc-asn1-types (Old)
and /work/SRC/openSUSE:Leap:15.2/.ghc-asn1-types.new.26092 (New)
Package is "ghc-asn1-types"
Wed Feb 19 18:37:42 2020 rev:11 rq:771225 version:0.3.3
Changes:
--- /work/SRC/openSUSE:Leap:15.2/ghc-asn1-types/ghc-asn1-types.changes
2020-01-15 15:00:38.773754423 +0100
+++
/work/SRC/openSUSE:Leap:15.2/.ghc-asn1-types.new.26092/ghc-asn1-types.changes
2020-02-19 18:37:43.269856452 +0100
@@ -1,0 +2,11 @@
+Fri Nov 8 16:13:13 UTC 2019 - Peter Simons
+
+- Drop obsolete group attributes.
+
+---
+Mon Jun 24 02:01:32 UTC 2019 - psim...@suse.com
+
+- 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.G3xf59/_old 2020-02-19 18:37:43.605857155 +0100
+++ /var/tmp/diff_new_pack.G3xf59/_new 2020-02-19 18:37:43.609857164 +0100
@@ -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,11 +18,10 @@
%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
-Group: Development/Libraries/Haskell
URL:https://hackage.haskell.org/package/%{pkg_name}
Source0:
https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz
BuildRequires: ghc-Cabal-devel
@@ -36,7 +35,6 @@
%package devel
Summary:Haskell %{pkg_name} library development files
-Group: Development/Libraries/Haskell
Requires: %{name} = %{version}-%{release}
Requires: ghc-compiler = %{ghc_version}
Requires(post): ghc-compiler = %{ghc_version}
++ 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.0 +0100
+++ new/asn1-types-0.3.3/Data/ASN1/Types/String.hs 2019-06-23
15:26:50.0 +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.0
+0100
+++ new/asn1-types-0.3.3/asn1-types.cabal 2019-06-23 15:55:10.0
+0200
@@ -1,5 +1,5 @@
Name:asn1-types
-Version: 0.3.2
+Version: 0.3.3
