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 <[email protected]> + +- 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.
