Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-microlens-platform for 
openSUSE:Factory checked in at 2024-02-06 16:34:43
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-microlens-platform (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-microlens-platform.new.1815 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-microlens-platform"

Tue Feb  6 16:34:43 2024 rev:10 rq:1144418 version:0.4.3.5

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/ghc-microlens-platform/ghc-microlens-platform.changes
    2023-10-18 21:26:12.489783818 +0200
+++ 
/work/SRC/openSUSE:Factory/.ghc-microlens-platform.new.1815/ghc-microlens-platform.changes
  2024-02-06 16:35:18.916712643 +0100
@@ -1,0 +2,9 @@
+Sun Jan 28 04:28:15 UTC 2024 - Peter Simons <psim...@suse.com>
+
+- Update microlens-platform to version 0.4.3.5.
+  Upstream has edited the change log file since the last release in
+  a non-trivial way, i.e. they did more than just add a new entry
+  at the top. You can review the file at:
+  
http://hackage.haskell.org/package/microlens-platform-0.4.3.5/src/CHANGELOG.md
+
+-------------------------------------------------------------------

Old:
----
  microlens-platform-0.4.3.4.tar.gz

New:
----
  microlens-platform-0.4.3.5.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-microlens-platform.spec ++++++
--- /var/tmp/diff_new_pack.vV12km/_old  2024-02-06 16:35:19.408730443 +0100
+++ /var/tmp/diff_new_pack.vV12km/_new  2024-02-06 16:35:19.408730443 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-microlens-platform
 #
-# Copyright (c) 2023 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -19,7 +19,7 @@
 %global pkg_name microlens-platform
 %global pkgver %{pkg_name}-%{version}
 Name:           ghc-%{pkg_name}
-Version:        0.4.3.4
+Version:        0.4.3.5
 Release:        0
 Summary:        Microlens + all batteries included (best for apps)
 License:        BSD-3-Clause

++++++ microlens-platform-0.4.3.4.tar.gz -> microlens-platform-0.4.3.5.tar.gz 
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/microlens-platform-0.4.3.4/CHANGELOG.md 
new/microlens-platform-0.4.3.5/CHANGELOG.md
--- old/microlens-platform-0.4.3.4/CHANGELOG.md 2001-09-09 03:46:40.000000000 
+0200
+++ new/microlens-platform-0.4.3.5/CHANGELOG.md 2001-09-09 03:46:40.000000000 
+0200
@@ -1,14 +1,18 @@
+# 0.4.3.5
+
+* [#131](https://github.com/stevenfontanella/microlens/issues/131) Add `At` 
and `Ixed` instance for `HashSet`.
+
 # 0.4.3.4
 
-* [#171](https://github.com/stevenfontanella/microlens/pull/171) Support text 
2.1
+* [#171](https://github.com/stevenfontanella/microlens/pull/171) Support text 
2.1.
 
 # 0.4.3.3
 
-* [#161](https://github.com/stevenfontanella/microlens/pull/161) Fix GHC 9.4 
warning for using `~` without TypeOperators
+* [#161](https://github.com/stevenfontanella/microlens/pull/161) Fix GHC 9.4 
warning for using `~` without TypeOperators.
 
 # 0.4.3.2
 
-* [#156](https://github.com/stevenfontanella/microlens/pull/156) Add a missing 
upper bound for text dependency
+* [#156](https://github.com/stevenfontanella/microlens/pull/156) Add a missing 
upper bound for text dependency.
 
 # 0.4.3.1
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/microlens-platform-0.4.3.4/microlens-platform.cabal 
new/microlens-platform-0.4.3.5/microlens-platform.cabal
--- old/microlens-platform-0.4.3.4/microlens-platform.cabal     2001-09-09 
03:46:40.000000000 +0200
+++ new/microlens-platform-0.4.3.5/microlens-platform.cabal     2001-09-09 
03:46:40.000000000 +0200
@@ -1,5 +1,5 @@
 name:                microlens-platform
-version:             0.4.3.4
+version:             0.4.3.5
 synopsis:            microlens + all batteries included (best for apps)
 description:
   This package exports a module which is the recommended starting point for 
using <http://hackage.haskell.org/package/microlens microlens> if you aren't 
trying to keep your dependencies minimal. By importing @Lens.Micro.Platform@ 
you get all functions and instances from 
<http://hackage.haskell.org/package/microlens microlens>, 
<http://hackage.haskell.org/package/microlens-th microlens-th>, 
<http://hackage.haskell.org/package/microlens-mtl microlens-mtl>, 
<http://hackage.haskell.org/package/microlens-ghc microlens-ghc>, as well as 
instances for @Vector@, @Text@, and @HashMap@.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/microlens-platform-0.4.3.4/src/Lens/Micro/Platform.hs 
new/microlens-platform-0.4.3.5/src/Lens/Micro/Platform.hs
--- old/microlens-platform-0.4.3.4/src/Lens/Micro/Platform.hs   2001-09-09 
03:46:40.000000000 +0200
+++ new/microlens-platform-0.4.3.5/src/Lens/Micro/Platform.hs   2001-09-09 
03:46:40.000000000 +0200
@@ -55,8 +55,10 @@
 import Data.Hashable
 import Data.Int
 import Data.Monoid
+import Data.Functor (($>))
 
 import Data.HashMap.Lazy as HashMap
+import Data.HashSet as HashSet
 import Data.Vector as Vector
 import Data.Vector.Primitive as Prim
 import Data.Vector.Storable as Storable
@@ -73,6 +75,9 @@
 
 type instance Index   (HashMap k a) = k
 type instance IxValue (HashMap k a) = a
+type instance Index   (HashSet a) = a
+type instance IxValue (HashSet a) = ()
+type instance IxValue (HashMap k a) = a
 type instance Index   (Vector.Vector a) = Int
 type instance IxValue (Vector.Vector a) = a
 type instance Index   (Prim.Vector a) = Int
@@ -99,6 +104,16 @@
     where mv = HashMap.lookup k m
   {-# INLINE at #-}
 
+instance (Eq k, Hashable k) => Ixed (HashSet k) where
+  ix k f m = if HashSet.member k m
+     then f () $> m
+     else pure m
+  {-# INLINE ix #-}
+
+instance (Eq k, Hashable k) => At (HashSet k) where
+  at k f s = HashSet.fromMap <$> HashMap.alterF f k (HashSet.toMap s)
+  {-# INLINE at #-}
+
 instance Ixed (Vector.Vector a) where
   ix i f v
     | 0 <= i && i < Vector.length v = f (v Vector.! i) <&> \a -> v Vector.// 
[(i, a)]

Reply via email to