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 <psim...@suse.com>
+
+- 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.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


Reply via email to