Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-hslua for openSUSE:Factory checked in at 2021-02-16 22:38:24 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hslua (Old) and /work/SRC/openSUSE:Factory/.ghc-hslua.new.28504 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hslua" Tue Feb 16 22:38:24 2021 rev:22 rq:870864 version:1.3.0.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hslua/ghc-hslua.changes 2020-12-22 11:40:38.137571400 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hslua.new.28504/ghc-hslua.changes 2021-02-16 22:48:22.674553536 +0100 @@ -1,0 +2,14 @@ +Mon Feb 8 05:05:44 UTC 2021 - psim...@suse.com + +- Update hslua to version 1.3.0.1. + ### 1.3.0.1 + + Released 2021-02-06. + + - Fixed build with GHC 9.0.1 (Simon Jakobi). + + - Improved test-suite; fixed memory leaks in some tests. + + - Moved CI to GitHub Actions. + +------------------------------------------------------------------- Old: ---- hslua-1.3.0.tar.gz New: ---- hslua-1.3.0.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hslua.spec ++++++ --- /var/tmp/diff_new_pack.XcPFUp/_old 2021-02-16 22:48:23.230553970 +0100 +++ /var/tmp/diff_new_pack.XcPFUp/_new 2021-02-16 22:48:23.234553974 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-hslua # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 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 hslua %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.3.0 +Version: 1.3.0.1 Release: 0 Summary: Bindings to Lua, an embeddable scripting language License: MIT ++++++ hslua-1.3.0.tar.gz -> hslua-1.3.0.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/CHANGELOG.md new/hslua-1.3.0.1/CHANGELOG.md --- old/hslua-1.3.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,15 @@ ## Changelog +### 1.3.0.1 + +Released 2021-02-06. + +- Fixed build with GHC 9.0.1 (Simon Jakobi). + +- Improved test-suite; fixed memory leaks in some tests. + +- Moved CI to GitHub Actions. + ### 1.3.0 Released 2020-10-16. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/README.md new/hslua-1.3.0.1/README.md --- old/hslua-1.3.0/README.md 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/README.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,14 +1,15 @@ # HsLua ??? Bindings to Lua, an embeddable scripting language -[![Build Status]](https://travis-ci.com/hslua/hslua) +[![Build status][GitHub Actions badge]][GitHub Actions] [![AppVeyor Status]](https://ci.appveyor.com/project/tarleb/hslua-r2y18) [![Hackage]](https://hackage.haskell.org/package/hslua) HsLua provides bindings, wrappers, types, and helper functions to bridge Haskell and Lua. -[Build Status]: https://travis-ci.com/hslua/hslua.svg?branch=master -[AppVeyor Status]: https://ci.appveyor.com/api/projects/status/ldutrilgxhpcau94/branch/master?svg=true +[GitHub Actions badge]: https://img.shields.io/github/workflow/status/hslua/hslua/CI.svg?logo=github +[GitHub Actions]: https://github.com/hslua/hslua/actions +[AppVeyor Status]: https://ci.appveyor.com/api/projects/status/ldutrilgxhpcau94/branch/main?svg=true [Hackage]: https://img.shields.io/hackage/v/hslua.svg diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/hslua.cabal new/hslua-1.3.0.1/hslua.cabal --- old/hslua-1.3.0/hslua.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/hslua.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.2 name: hslua -version: 1.3.0 +version: 1.3.0.1 synopsis: Bindings to Lua, an embeddable scripting language description: HsLua provides bindings, wrappers, types, and helper functions to bridge Haskell and <https://www.lua.org/ Lua>. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/prelude/Prelude.hs new/hslua-1.3.0.1/prelude/Prelude.hs --- old/hslua-1.3.0/prelude/Prelude.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/prelude/Prelude.hs 2001-09-09 03:46:40.000000000 +0200 @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} module Prelude ( module Prelude.Compat , Semigroup (..) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/src/Foreign/Lua/Core/Auxiliary.hs new/hslua-1.3.0.1/src/Foreign/Lua/Core/Auxiliary.hs --- old/hslua-1.3.0/src/Foreign/Lua/Core/Auxiliary.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/src/Foreign/Lua/Core/Auxiliary.hs 2001-09-09 03:46:40.000000000 +0200 @@ -227,11 +227,11 @@ tostring' :: StackIndex -> Lua B.ByteString tostring' n = do l <- Lua.state - e2e <- Lua.errorToException <$> Lua.errorConversion + e <- Lua.errorConversion Lua.liftIO $ alloca $ \lenPtr -> do cstr <- hsluaL_tolstring l n lenPtr if cstr == nullPtr - then e2e l + then Lua.errorToException e l else do cstrLen <- Storable.peek lenPtr B.packCStringLen (cstr, fromIntegral cstrLen) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/src/Foreign/Lua/Core/Error.hs new/hslua-1.3.0.1/src/Foreign/Lua/Core/Error.hs --- old/hslua-1.3.0/src/Foreign/Lua/Core/Error.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/src/Foreign/Lua/Core/Error.hs 2001-09-09 03:46:40.000000000 +0200 @@ -77,9 +77,9 @@ -- expected to be at the top of the stack. throwErrorAsException :: Lua a throwErrorAsException = do - f <- Lua.errorToException <$> Lua.errorConversion + e <- Lua.errorConversion l <- Lua.state - Lua.liftIO (f l) + Lua.liftIO (Lua.errorToException e l) -- | Alias for `throwErrorAsException`; will be deprecated in the next -- mayor release. @@ -93,13 +93,14 @@ Lua.liftLua $ \l -> B.unsafeUseAsCStringLen (Utf8.fromString msg) $ \(msgPtr, z) -> lua_pushlstring l msgPtr (fromIntegral z) - Lua.errorConversion >>= Lua.liftLua . Lua.errorToException + e <- Lua.errorConversion + Lua.liftLua (Lua.errorToException e) instance Alternative Lua where empty = throwMessage "empty" x <|> y = do - alt <- Lua.alternative <$> Lua.errorConversion - x `alt` y + e <- Lua.errorConversion + Lua.alternative e x y -- | Convert the object at the top of the stack into a string and throw -- it as a HsLua @'Exception'@. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/test/Foreign/Lua/CoreTests.hs new/hslua-1.3.0.1/test/Foreign/Lua/CoreTests.hs --- old/hslua-1.3.0/test/Foreign/Lua/CoreTests.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/test/Foreign/Lua/CoreTests.hs 2001-09-09 03:46:40.000000000 +0200 @@ -76,7 +76,7 @@ ] , testGroup "insert" - [ "inserts stack elements using negative indices" ?: do + [ "inserts stack elements using positive indices" ?: do pushLuaExpr "1, 2, 3, 4, 5, 6, 7, 8, 9" insert (-6) movedEl <- peek (-6) :: Lua Lua.Integer @@ -210,10 +210,14 @@ luaSt' <- peek stackTop return (luaSt == luaSt') - , "different threads are not equal in Haskell" ?: do - luaSt1 <- liftIO newstate - luaSt2 <- liftIO newstate - return (luaSt1 /= luaSt2) + , "different threads are not equal in Haskell" ?: + liftIO + (do luaSt1 <- newstate + luaSt2 <- newstate + let result = luaSt1 /= luaSt2 + close luaSt1 + close luaSt2 + return result) , testGroup "thread status" [ "OK is base thread status" =: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/test/Foreign/Lua/TypesTests.hs new/hslua-1.3.0.1/test/Foreign/Lua/TypesTests.hs --- old/hslua-1.3.0/test/Foreign/Lua/TypesTests.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/test/Foreign/Lua/TypesTests.hs 2001-09-09 03:46:40.000000000 +0200 @@ -169,3 +169,5 @@ assert $ stackSize == newStackSize -- Check that we were able to peek at all pushed elements forM_ vals $ assert . (== t) + -- Cleanup + QCMonadic.run (close l) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.3.0/test/test-hslua.hs new/hslua-1.3.0.1/test/test-hslua.hs --- old/hslua-1.3.0/test/test-hslua.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.3.0.1/test/test-hslua.hs 2001-09-09 03:46:40.000000000 +0200 @@ -44,7 +44,7 @@ , Foreign.Lua.PushTests.tests , Foreign.Lua.FunctionCallingTests.tests , Foreign.Lua.UtilTests.tests - , testGroup "Sendings and receiving values from the stack" + , testGroup "Sending and receiving values from the stack" [ Foreign.Lua.TypesTests.tests , Foreign.Lua.Types.PeekableTests.tests , Foreign.Lua.Types.PushableTests.tests