Remove pandoc prefix on table components

See jgm/pandoc#8574

Author: tarleb

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" ""

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" ""

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" ""

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" ""