[Git][ghc/ghc][master] base: make Data.List.NonEmpty.unzip match Data.List

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
0eb58b0e by sheaf at 2025-02-25T08:59:29-05:00
base: make Data.List.NonEmpty.unzip match Data.List

This commit makes Data.List.NonEmpty.unzip match the implementation
of Data.List, as was suggested in approved CLC proposal #107.

- - - - -


1 changed file:

- libraries/base/src/Data/List/NonEmpty.hs


Changes:

=====================================
libraries/base/src/Data/List/NonEmpty.hs
=====================================
@@ -544,7 +544,9 @@ infixl 9 !!
 
 -- | The 'unzip' function is the inverse of the 'zip' function.
 unzip :: NonEmpty (a, b) -> (NonEmpty a, NonEmpty b)
-unzip xs = (fst <$> xs, snd <$> xs)
+unzip ((a, b) :| asbs) = (a :| as, b :| bs)
+  where
+    (as, bs) = List.unzip asbs
 
 -- | The 'nub' function removes duplicate elements from a list. In
 -- particular, it keeps only the first occurrence of each element.



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0eb58b0e1e9a5b2f28dada66c32d37a640644553

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0eb58b0e1e9a5b2f28dada66c32d37a640644553
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20250225/870edecd/attachment.html>