Lua: produce more informative error messages for pandoc errors

Errors are reported in Lua in the same words in which they would be
reported in the terminal.

1 files changed, 4 insertions, 4 deletions

diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
index 7f83f2fc0..7feba2d45 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
@@ -19,9 +19,9 @@ module Text.Pandoc.Lua.Marshal.PandocError
   )
   where
 
-import HsLua (LuaError, Peeker, Pusher, liftLua, pushString)
+import HsLua (LuaError, Peeker, Pusher, liftLua, pushText)
 import HsLua.Packaging
-import Text.Pandoc.Error (PandocError (PandocLuaError))
+import Text.Pandoc.Error (PandocError (PandocLuaError), renderError)
 
 import qualified HsLua as Lua
 import qualified Text.Pandoc.UTF8 as UTF8
@@ -30,9 +30,9 @@ import qualified Text.Pandoc.UTF8 as UTF8
 typePandocError :: LuaError e => DocumentedType e PandocError
 typePandocError = deftype "PandocError"
   [ operation Tostring $ defun "__tostring"
-    ### liftPure (show @PandocError)
+    ### liftPure renderError
     <#> udparam typePandocError "obj" "PandocError object"
-    =#> functionResult pushString "string" "string representation of error."
+    =#> functionResult pushText "string" "string representation of error."
   ]
   mempty -- no members