Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-hslua-module-system for
openSUSE:Factory checked in at 2024-06-11 18:28:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-hslua-module-system (Old)
and /work/SRC/openSUSE:Factory/.ghc-hslua-module-system.new.19518 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hslua-module-system"
Tue Jun 11 18:28:04 2024 rev:13 rq:1179751 version:1.1.2
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-hslua-module-system/ghc-hslua-module-system.changes
2024-01-26 22:47:32.296783642 +0100
+++
/work/SRC/openSUSE:Factory/.ghc-hslua-module-system.new.19518/ghc-hslua-module-system.changes
2024-06-11 18:28:45.863710479 +0200
@@ -1,0 +2,11 @@
+Tue May 28 08:38:56 UTC 2024 - Peter Simons <[email protected]>
+
+- Update hslua-module-system to version 1.1.2.
+ ## hslua-module-system-1.1.2
+
+ Released 2024-05-28.
+
+ - Fixed error handling in `with_wd`: exceptions when changing
+ directories are now properly converted to Lua errors.
+
+-------------------------------------------------------------------
Old:
----
hslua-module-system-1.1.1.tar.gz
New:
----
hslua-module-system-1.1.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-hslua-module-system.spec ++++++
--- /var/tmp/diff_new_pack.vXgVeH/_old 2024-06-11 18:28:47.415767119 +0200
+++ /var/tmp/diff_new_pack.vXgVeH/_new 2024-06-11 18:28:47.415767119 +0200
@@ -20,7 +20,7 @@
%global pkgver %{pkg_name}-%{version}
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 1.1.1
+Version: 1.1.2
Release: 0
Summary: Lua module wrapper around Haskell's System module
License: MIT
++++++ hslua-module-system-1.1.1.tar.gz -> hslua-module-system-1.1.2.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hslua-module-system-1.1.1/CHANGELOG.md
new/hslua-module-system-1.1.2/CHANGELOG.md
--- old/hslua-module-system-1.1.1/CHANGELOG.md 2001-09-09 03:46:40.000000000
+0200
+++ new/hslua-module-system-1.1.2/CHANGELOG.md 2001-09-09 03:46:40.000000000
+0200
@@ -2,6 +2,13 @@
`hslua-module-system` uses [PVP Versioning][].
+## hslua-module-system-1.1.2
+
+Released 2024-05-28.
+
+- Fixed error handling in `with_wd`: exceptions when changing
+ directories are now properly converted to Lua errors.
+
## hslua-module-system-1.1.1
Released 2024-01-18.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hslua-module-system-1.1.1/hslua-module-system.cabal
new/hslua-module-system-1.1.2/hslua-module-system.cabal
--- old/hslua-module-system-1.1.1/hslua-module-system.cabal 2001-09-09
03:46:40.000000000 +0200
+++ new/hslua-module-system-1.1.2/hslua-module-system.cabal 2001-09-09
03:46:40.000000000 +0200
@@ -1,6 +1,6 @@
cabal-version: 2.2
name: hslua-module-system
-version: 1.1.1
+version: 1.1.2
synopsis: Lua module wrapper around Haskell's System module.
description: Provides access to system information and
@@ -26,8 +26,9 @@
, GHC == 9.0.2
, GHC == 9.2.8
, GHC == 9.4.8
- , GHC == 9.6.3
- , GHC == 9.8.1
+ , GHC == 9.6.5
+ , GHC == 9.8.2
+ , GHC == 9.10.1
source-repository head
type: git
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hslua-module-system-1.1.1/src/HsLua/Module/System.hs
new/hslua-module-system-1.1.2/src/HsLua/Module/System.hs
--- old/hslua-module-system-1.1.1/src/HsLua/Module/System.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/hslua-module-system-1.1.2/src/HsLua/Module/System.hs 2001-09-09
03:46:40.000000000 +0200
@@ -47,7 +47,6 @@
import HsLua.Module.SystemUtils
import qualified Data.Text as T
-import qualified HsLua.Core as Lua
import qualified System.CPUTime as CPUTime
import qualified System.Directory as Directory
import qualified System.Environment as Env
@@ -291,10 +290,10 @@
with_wd :: LuaError e => DocumentedFunction e
with_wd = defun "with_wd"
### (\fp callback ->
- bracket (Lua.liftIO Directory.getCurrentDirectory)
- (Lua.liftIO . Directory.setCurrentDirectory)
- (\_ -> do
- Lua.liftIO (Directory.setCurrentDirectory fp)
+ bracket (ioToLua Directory.getCurrentDirectory)
+ (ioToLua . Directory.setCurrentDirectory)
+ (\_ -> do
+ ioToLua (Directory.setCurrentDirectory fp)
callback `invokeWithFilePath` fp))
<#> filepathParam "directory"
"Directory in which the given `callback` should be executed"
@@ -312,7 +311,7 @@
with_env :: LuaError e => DocumentedFunction e
with_env = defun "with_env"
### (\environment callback ->
- bracket (Lua.liftIO Env.getEnvironment)
+ bracket (ioToLua Env.getEnvironment)
setEnvironment
(\_ -> setEnvironment environment *> invoke callback))
<#> parameter (peekKeyValuePairs peekString peekString) "table"
@@ -330,7 +329,7 @@
, "action."
]
where
- setEnvironment newEnv = Lua.liftIO $ do
+ setEnvironment newEnv = ioToLua $ do
-- Crude, but fast enough: delete all entries in new environment,
-- then restore old environment one-by-one.
curEnv <- Env.getEnvironment
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hslua-module-system-1.1.1/test/test-system.lua
new/hslua-module-system-1.1.2/test/test-system.lua
--- old/hslua-module-system-1.1.1/test/test-system.lua 2001-09-09
03:46:40.000000000 +0200
+++ new/hslua-module-system-1.1.2/test/test-system.lua 2001-09-09
03:46:40.000000000 +0200
@@ -216,5 +216,13 @@
end)
assert.are_same({a, b, c}, {'a', 'b', 'c'})
end),
+ test('raises an error on nonexistent directory', function ()
+ assert.error_matches(
+ function ()
+ system.with_wd('does-not-exist', function () end)
+ end,
+ 'does not exist'
+ )
+ end)
},
}
