Hello community, here is the log from the commit of package ghc-hslua for openSUSE:Factory checked in at 2020-07-09 13:19:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hslua (Old) and /work/SRC/openSUSE:Factory/.ghc-hslua.new.3060 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hslua" Thu Jul 9 13:19:17 2020 rev:18 rq:819577 version:1.1.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hslua/ghc-hslua.changes 2020-06-19 17:13:19.270138328 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-hslua.new.3060/ghc-hslua.changes 2020-07-09 13:19:40.749328697 +0200 @@ -1,0 +2,9 @@ +Sun Jun 28 02:00:44 UTC 2020 - psim...@suse.com + +- Update hslua to version 1.1.2. + Upstream has edited the change log file since the last release in + a non-trivial way, i.e. they did more than just add a new entry + at the top. You can review the file at: + http://hackage.haskell.org/package/hslua-1.1.2/src/CHANGELOG.md + +------------------------------------------------------------------- Old: ---- hslua-1.1.1.tar.gz New: ---- hslua-1.1.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hslua.spec ++++++ --- /var/tmp/diff_new_pack.8eyJ9i/_old 2020-07-09 13:19:42.349333754 +0200 +++ /var/tmp/diff_new_pack.8eyJ9i/_new 2020-07-09 13:19:42.353333767 +0200 @@ -19,7 +19,7 @@ %global pkg_name hslua %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.1.1 +Version: 1.1.2 Release: 0 Summary: Bindings to Lua, an embeddable scripting language License: MIT ++++++ hslua-1.1.1.tar.gz -> hslua-1.1.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.1.1/CHANGELOG.md new/hslua-1.1.2/CHANGELOG.md --- old/hslua-1.1.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.1.2/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,9 +1,24 @@ ## Changelog +### 1.1.2 + +Released 2020-06-02 + +- Revert signature of function `pushList` to it's proper 1.1 + value. This fixes a mistake which made caused the 1.1.1 release + to be in violation of the PVP versioning policy. + +- Module Foreign.Lua.Peek: add function `pushKeyValuePairs` (Alex + Loomis). + ### 1.1.1 Released 2020-06-02 +*WARNING*: This version does not conform to the PVP versioning +policy, due to a unintended signature change of function +`pushList`. It is recommended not to use this version. + - New module Foreign.Lua.Push: provides functions which marshal and push Haskell values onto Lua's stack. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.1.1/hslua.cabal new/hslua-1.1.2/hslua.cabal --- old/hslua-1.1.1/hslua.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.1.2/hslua.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: hslua -version: 1.1.1 +version: 1.1.2 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.1.1/src/Foreign/Lua/Push.hs new/hslua-1.1.2/src/Foreign/Lua/Push.hs --- old/hslua-1.1.1/src/Foreign/Lua/Push.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.1.2/src/Foreign/Lua/Push.hs 2001-09-09 03:46:40.000000000 +0200 @@ -85,6 +85,13 @@ then pushnumber (realToFrac f :: Lua.Number) else pushString (showGFloat Nothing f "") +-- | Push list of pairs as default key-value Lua table. +pushKeyValuePairs :: Pusher a -> Pusher b -> Pusher [(a,b)] +pushKeyValuePairs pushKey pushValue m = do + let addValue (k, v) = pushKey k *> pushValue v *> rawset (-3) + newtable + mapM_ addValue m + -- | Push list as numerically indexed table. pushList :: Pusher a -> [a] -> Lua () pushList push xs = do @@ -94,10 +101,7 @@ -- | Push 'Map' as default key-value Lua table. pushMap :: Pusher a -> Pusher b -> Pusher (Map a b) -pushMap pushKey pushValue m = do - let addValue (k, v) = pushKey k *> pushValue v *> rawset (-3) - newtable - mapM_ addValue (toList m) +pushMap pushKey pushValue m = pushKeyValuePairs pushKey pushValue $ toList m -- | Push a 'Set' as idiomatic Lua set, i.e., as a table with the set -- elements as keys and @true@ as values. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-1.1.1/src/Foreign/Lua/Types/Pushable.hs new/hslua-1.1.2/src/Foreign/Lua/Types/Pushable.hs --- old/hslua-1.1.1/src/Foreign/Lua/Types/Pushable.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-1.1.2/src/Foreign/Lua/Types/Pushable.hs 2001-09-09 03:46:40.000000000 +0200 @@ -23,10 +23,11 @@ import Data.Text (Text) import Data.Set (Set) import Foreign.Lua.Core as Lua -import Foreign.Lua.Push as Push +import Foreign.Lua.Push hiding (pushList) import Foreign.Ptr (Ptr) import qualified Data.ByteString.Lazy as BL +import qualified Foreign.Lua.Push as Push -- | A value that can be pushed to the Lua stack. class Pushable a where @@ -77,7 +78,7 @@ push = pushString instance Pushable a => Pushable [a] where - push = pushList push + push = Push.pushList push instance (Pushable a, Pushable b) => Pushable (Map a b) where push = pushMap push push @@ -85,6 +86,10 @@ instance Pushable a => Pushable (Set a) where push = pushSet push +-- | Push list as numerically indexed table. +pushList :: Pushable a => [a] -> Lua () +pushList = Push.pushList push + -- -- Tuples --
