commit ghc-rio for openSUSE:Factory

1 Aug 2022

Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-rio for openSUSE:Factory checked in at 2022-08-01 21:30:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-rio (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-rio.new.1533 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-rio"

Mon Aug  1 21:30:26 2022 rev:20 rq:987085 version:0.1.22.0

Changes:
--------

--- /work/SRC/openSUSE:Factory/ghc-rio/ghc-rio.changes	2021-08-25 20:58:50.785110920 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-rio.new.1533/ghc-rio.changes	2022-08-01 21:30:46.933722440 +0200
@@ -1,0 +2,8 @@
+Mon Apr 25 16:17:34 UTC 2022 - Peter Simons <psimons@suse.com>
+
+- Update rio to version 0.1.22.0.
+  ## 0.1.22.0
+
+  * Expose `augmentPathMap'`
+
+-------------------------------------------------------------------

Old:
----
  rio-0.1.21.0.tar.gz

New:
----
  rio-0.1.22.0.tar.gz

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

Other differences:
------------------
++++++ ghc-rio.spec ++++++
--- /var/tmp/diff_new_pack.eVHiNJ/_old	2022-08-01 21:30:47.597724345 +0200
+++ /var/tmp/diff_new_pack.eVHiNJ/_new	2022-08-01 21:30:47.605724368 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-rio
 #
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2022 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 rio
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.1.21.0
+Version:        0.1.22.0
 Release:        0
 Summary:        A standard library for Haskell
 License:        MIT

++++++ rio-0.1.21.0.tar.gz -> rio-0.1.22.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rio-0.1.21.0/ChangeLog.md new/rio-0.1.22.0/ChangeLog.md
--- old/rio-0.1.21.0/ChangeLog.md	2021-08-09 16:53:57.000000000 +0200
+++ new/rio-0.1.22.0/ChangeLog.md	2022-04-25 18:16:03.000000000 +0200
@@ -1,5 +1,9 @@
 # Changelog for rio
 
+## 0.1.22.0
+
+* Expose `augmentPathMap'`
+
 ## 0.1.21.0
 
 * Fix minor bug in `augmentPathMap` on windows wrt [#234](https://github.com/commercialhaskell/rio/issues/234) not adhering to case-insensitive semantics
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rio-0.1.21.0/rio.cabal new/rio-0.1.22.0/rio.cabal
--- old/rio-0.1.21.0/rio.cabal	2021-08-09 16:54:24.000000000 +0200
+++ new/rio-0.1.22.0/rio.cabal	2022-04-25 18:16:06.000000000 +0200
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           rio
-version:        0.1.21.0
+version:        0.1.22.0
 synopsis:       A standard library for Haskell
 description:    See README and Haddocks at <https://www.stackage.org/package/rio>
 category:       Control
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rio-0.1.21.0/src/RIO/Prelude/Logger.hs new/rio-0.1.22.0/src/RIO/Prelude/Logger.hs
--- old/rio-0.1.21.0/src/RIO/Prelude/Logger.hs	2021-08-09 05:30:06.000000000 +0200
+++ new/rio-0.1.22.0/src/RIO/Prelude/Logger.hs	2022-04-25 11:55:31.000000000 +0200
@@ -544,7 +544,7 @@
 setLogVerboseFormatIO getVerboseLevel options =
   options { logVerboseFormat = getVerboseLevel }
 
--- | Do we treat output as a terminal. If @True@, we will enabled
+-- | Do we treat output as a terminal. If @True@, we will enable
 -- sticky logging functionality.
 --
 -- Default: checks if the @Handle@ provided to 'logOptionsHandle' is a
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/rio-0.1.21.0/src/RIO/Process.hs new/rio-0.1.22.0/src/RIO/Process.hs
--- old/rio-0.1.21.0/src/RIO/Process.hs	2021-08-09 16:53:57.000000000 +0200
+++ new/rio-0.1.22.0/src/RIO/Process.hs	2022-04-25 11:55:31.000000000 +0200
@@ -77,6 +77,7 @@
   , exeExtensions
   , augmentPath
   , augmentPathMap
+  , augmentPathMap'
   , showProcessArgDebug
     -- * Reexports
   , P.ProcessConfig
@@ -659,8 +660,9 @@
   pc <- view processContextL
   return $ pcExeExtensions pc
 
--- | Augment the PATH environment variable with the given extra paths,
--- which are prepended (as in: they take precedence).
+-- | Augment the given value (assumed to be that of an environment variable
+-- that lists paths, such as PATH; this is not checked) with the given extra
+-- paths. Those paths are prepended (as in: they take precedence).
 --
 -- @since 0.0.3.0
 augmentPath :: [FilePath] -> Maybe Text -> Either ProcessException Text
@@ -672,15 +674,29 @@
             ++ maybeToList mpath
     illegal -> Left $ PathsInvalidInPath illegal
 
--- | Apply 'augmentPath' on the PATH value in the given 'EnvVars'.
+-- | Apply 'augmentPath' on the value of the PATH environment variable in the
+-- given 'EnvVars'.
 --
 -- @since 0.0.3.0
 augmentPathMap :: [FilePath] -> EnvVars -> Either ProcessException EnvVars
-augmentPathMap dirs (normalizePathEnv -> origEnv) =
+augmentPathMap = augmentPathMap' "PATH"
+
+-- | Apply 'augmentPath' on the value of the given environment variable in the
+-- given 'EnvVars'.
+--
+-- @since 0.1.22.0
+augmentPathMap'
+  :: Text
+  -- ^ Environment variable. If it does not already exist in the given
+  -- 'EnvVars', it will be created.
+  -> [FilePath]
+  -> EnvVars
+  -> Either ProcessException EnvVars
+augmentPathMap' envVar dirs (normalizePathEnv -> origEnv) =
   do path <- augmentPath dirs mpath
-     return $ Map.insert "PATH" path origEnv
+     return $ Map.insert envVar path origEnv
   where
-    mpath = Map.lookup "PATH" origEnv
+    mpath = Map.lookup envVar origEnv
 
 -- | Show a process arg including speechmarks when necessary. Just for
 -- debugging purposes, not functionally important.

    

Source-Sync

tags

participants (1)