From 2dc58d431bb3e4d55999db03c470fbf32970b3d5 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Mon, 14 Oct 2024 06:55:44 +0200
Subject: [PATCH] Remove `pandoc` prefix on table components

See jgm/pandoc#8574
---
 src/Text/Pandoc/Lua/Marshal/Cell.hs      | 2 +-
 src/Text/Pandoc/Lua/Marshal/Row.hs       | 2 +-
 src/Text/Pandoc/Lua/Marshal/TableFoot.hs | 2 +-
 src/Text/Pandoc/Lua/Marshal/TableHead.hs | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Text/Pandoc/Lua/Marshal/Cell.hs b/src/Text/Pandoc/Lua/Marshal/Cell.hs
index d0018fb..3247069 100644
--- a/src/Text/Pandoc/Lua/Marshal/Cell.hs
+++ b/src/Text/Pandoc/Lua/Marshal/Cell.hs
@@ -54,7 +54,7 @@ peekCellFuzzy idx = liftLua (ltype idx) >>= \case
 
 -- | Cell object type.
 typeCell :: LuaError e => DocumentedType e Cell
-typeCell = deftype "pandoc Cell"
+typeCell = deftype "Cell"
   [ operation Eq $ defun "__eq"
      ### liftPure2 (\a b -> fromMaybe False ((==) <$> a <*> b))
      <#> parameter (optional . peekCell) "Cell" "self" ""
diff --git a/src/Text/Pandoc/Lua/Marshal/Row.hs b/src/Text/Pandoc/Lua/Marshal/Row.hs
index 326bdbd..b7e1892 100644
--- a/src/Text/Pandoc/Lua/Marshal/Row.hs
+++ b/src/Text/Pandoc/Lua/Marshal/Row.hs
@@ -47,7 +47,7 @@ peekRowFuzzy idx = liftLua (ltype idx) >>= \case
 
 -- | Row object type.
 typeRow :: LuaError e => DocumentedType e Row
-typeRow = deftype "pandoc Row"
+typeRow = deftype "Row"
   [ operation Eq $ defun "__eq"
      ### liftPure2 (\a b -> fromMaybe False ((==) <$> a <*> b))
      <#> parameter (optional . peekRow) "Row" "self" ""
diff --git a/src/Text/Pandoc/Lua/Marshal/TableFoot.hs b/src/Text/Pandoc/Lua/Marshal/TableFoot.hs
index fae91a1..4b2a51e 100644
--- a/src/Text/Pandoc/Lua/Marshal/TableFoot.hs
+++ b/src/Text/Pandoc/Lua/Marshal/TableFoot.hs
@@ -32,7 +32,7 @@ peekTableFoot = peekUD typeTableFoot
 
 -- | Row object type.
 typeTableFoot :: LuaError e => DocumentedType e TableFoot
-typeTableFoot = deftype "pandoc TableFoot"
+typeTableFoot = deftype "TableFoot"
   [ operation Eq $ defun "__eq"
      ### liftPure2 (\a b -> fromMaybe False ((==) <$> a <*> b))
      <#> parameter (optional . peekTableFoot) "TableFoot" "self" ""
diff --git a/src/Text/Pandoc/Lua/Marshal/TableHead.hs b/src/Text/Pandoc/Lua/Marshal/TableHead.hs
index e85b725..4de5386 100644
--- a/src/Text/Pandoc/Lua/Marshal/TableHead.hs
+++ b/src/Text/Pandoc/Lua/Marshal/TableHead.hs
@@ -32,7 +32,7 @@ peekTableHead = peekUD typeTableHead
 
 -- | Row object type.
 typeTableHead :: LuaError e => DocumentedType e TableHead
-typeTableHead = deftype "pandoc TableHead"
+typeTableHead = deftype "TableHead"
   [ operation Eq $ defun "__eq"
      ### liftPure2 (\a b -> fromMaybe False ((==) <$> a <*> b))
      <#> parameter (optional . peekTableHead) "TableHead" "self" ""