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

Reply via email to