Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-pandoc-lua-engine for
openSUSE:Factory checked in at 2025-12-05 16:55:55
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-pandoc-lua-engine (Old)
and /work/SRC/openSUSE:Factory/.ghc-pandoc-lua-engine.new.1939 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-pandoc-lua-engine"
Fri Dec 5 16:55:55 2025 rev:21 rq:1321138 version:0.5.0.2
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-pandoc-lua-engine/ghc-pandoc-lua-engine.changes
2025-10-28 14:48:20.831432362 +0100
+++
/work/SRC/openSUSE:Factory/.ghc-pandoc-lua-engine.new.1939/ghc-pandoc-lua-engine.changes
2025-12-05 16:56:29.988041674 +0100
@@ -1,0 +2,6 @@
+Mon Dec 1 10:13:46 UTC 2025 - Peter Simons <[email protected]>
+
+- Update pandoc-lua-engine to version 0.5.0.2.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
pandoc-lua-engine-0.5.0.1.tar.gz
New:
----
pandoc-lua-engine-0.5.0.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-pandoc-lua-engine.spec ++++++
--- /var/tmp/diff_new_pack.PoRAbv/_old 2025-12-05 16:56:32.876162422 +0100
+++ /var/tmp/diff_new_pack.PoRAbv/_new 2025-12-05 16:56:32.896163258 +0100
@@ -20,7 +20,7 @@
%global pkgver %{pkg_name}-%{version}
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.5.0.1
+Version: 0.5.0.2
Release: 0
Summary: Lua engine to power custom pandoc conversions
License: GPL-2.0-or-later
++++++ pandoc-lua-engine-0.5.0.1.tar.gz -> pandoc-lua-engine-0.5.0.2.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/pandoc-lua-engine-0.5.0.1/pandoc-lua-engine.cabal
new/pandoc-lua-engine-0.5.0.2/pandoc-lua-engine.cabal
--- old/pandoc-lua-engine-0.5.0.1/pandoc-lua-engine.cabal 2001-09-09
03:46:40.000000000 +0200
+++ new/pandoc-lua-engine-0.5.0.2/pandoc-lua-engine.cabal 2001-09-09
03:46:40.000000000 +0200
@@ -1,6 +1,6 @@
cabal-version: 2.4
name: pandoc-lua-engine
-version: 0.5.0.1
+version: 0.5.0.2
build-type: Simple
license: GPL-2.0-or-later
license-file: COPYING.md
@@ -111,7 +111,7 @@
build-depends: aeson
, bytestring >= 0.9 && < 0.13
, crypton >= 0.30 && < 1.1
- , citeproc >= 0.8 && < 0.12
+ , citeproc >= 0.8 && < 0.13
, containers >= 0.6.0.1 && < 0.9
, data-default >= 0.4 && < 0.9
, doclayout >= 0.5 && < 0.6
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/pandoc-lua-engine-0.5.0.1/src/Text/Pandoc/Lua/Custom.hs
new/pandoc-lua-engine-0.5.0.2/src/Text/Pandoc/Lua/Custom.hs
--- old/pandoc-lua-engine-0.5.0.1/src/Text/Pandoc/Lua/Custom.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/pandoc-lua-engine-0.5.0.2/src/Text/Pandoc/Lua/Custom.hs 2001-09-09
03:46:40.000000000 +0200
@@ -148,12 +148,19 @@
writerField :: Name
writerField = "Pandoc Writer function"
--- | Runs a Lua action in a continueable environment.
-inLua :: MonadIO m => GCManagedState -> LuaE PandocError a -> m a
-inLua st = liftIO . withGCManagedState @PandocError st
+-- | Runs a Lua action in a continuable environment and transfers the common
+-- state after the Lua action has finished.
+inLua :: (PandocMonad m, MonadIO m)
+ => GCManagedState -> LuaE PandocError a -> m a
+inLua st luaAction = do
+ let inLua' = liftIO . withGCManagedState @PandocError st
+ result <- inLua' luaAction
+ cstate <- inLua' (unPandocLua PandocMonad.getCommonState)
+ PandocMonad.putCommonState cstate
+ return result
-- | Returns the ByteStringReader function
-byteStringReader :: MonadIO m => GCManagedState -> Reader m
+byteStringReader :: (PandocMonad m, MonadIO m) => GCManagedState -> Reader m
byteStringReader st = ByteStringReader $ \ropts input -> inLua st $ do
getfield registryindex readerField
push input
@@ -163,12 +170,12 @@
_ -> throwErrorAsException
-- | Returns the TextReader function
-textReader :: MonadIO m => GCManagedState -> Reader m
+textReader :: (PandocMonad m, MonadIO m) => GCManagedState -> Reader m
textReader st = TextReader $ \ropts srcs -> inLua st $ do
let input = toSources srcs
getfield registryindex readerField
push input
push ropts
pcallTrace 2 1 >>= \case
- OK -> forcePeek $ peekPandoc top
+ OK -> forcePeek (peekPandoc top)
_ -> throwErrorAsException
