1 files changed, 3 insertions, 27 deletions
diff --git a/src/Text/Pandoc/Lua/Module/Types.hs b/src/Text/Pandoc/Lua/Module/Types.hs
index 4b37dafd9..f16737f63 100644
--- a/src/Text/Pandoc/Lua/Module/Types.hs
+++ b/src/Text/Pandoc/Lua/Module/Types.hs
@@ -13,14 +13,11 @@ module Text.Pandoc.Lua.Module.Types
   ( documentedModule
   ) where
 
-import HsLua ( LuaE, NumResults, Peeker, Pusher, Module (..), Field (..)
-             , defun, functionResult, parameter, (###), (<#>), (=#>))
+import HsLua ( Module (..), (###), (<#>), (=#>)
+             , defun, functionResult, parameter)
 import HsLua.Module.Version (peekVersionFuzzy, pushVersion)
 import Text.Pandoc.Error (PandocError)
 import Text.Pandoc.Lua.ErrorConversion ()
-import Text.Pandoc.Lua.Marshaling.AST
-
-import qualified HsLua as Lua
 
 -- | Push the pandoc.types module on the Lua stack.
 documentedModule :: Module PandocError
@@ -28,16 +25,7 @@ documentedModule = Module
   { moduleName = "pandoc.types"
   , moduleDescription =
       "Constructors for types that are not part of the pandoc AST."
-  , moduleFields =
-    [ Field
-      { fieldName = "clone"
-      , fieldDescription = "DEPRECATED! Helper functions for element cloning."
-      , fieldPushValue = do
-          Lua.newtable
-          addFunction "Meta" $ cloneWith peekMeta pushMeta
-          addFunction "MetaValue" $ cloneWith peekMetaValue pushMetaValue
-      }
-    ]
+  , moduleFields = []
   , moduleFunctions =
       [ defun "Version"
         ### return
@@ -52,15 +40,3 @@ documentedModule = Module
       ]
   , moduleOperations = []
   }
- where addFunction name fn = do
-         Lua.pushName name
-         Lua.pushHaskellFunction fn
-         Lua.rawset (Lua.nth 3)
-
-cloneWith :: Peeker PandocError a
-          -> Pusher PandocError a
-          -> LuaE PandocError NumResults
-cloneWith peeker pusher = do
-  x <- Lua.forcePeek $ peeker (Lua.nthBottom 1)
-  pusher x
-  return (Lua.NumResults 1)