1 files changed, 0 insertions, 72 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/ListAttributes.hs b/src/Text/Pandoc/Lua/Marshaling/ListAttributes.hs
deleted file mode 100644
index 5a6608644..000000000
--- a/src/Text/Pandoc/Lua/Marshaling/ListAttributes.hs
+++ /dev/null
@@ -1,72 +0,0 @@
-{-# LANGUAGE OverloadedStrings    #-}
-{-# LANGUAGE TupleSections        #-}
-{- |
-Module      : Text.Pandoc.Lua.Marshaling.ListAttributes
-Copyright   : © 2021 Albert Krewinkel
-License     : GNU GPL, version 2 or above
-Maintainer  : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>
-
-Marshaling/unmarshaling functions and constructor for 'ListAttributes'
-values.
--}
-module Text.Pandoc.Lua.Marshaling.ListAttributes
-  ( typeListAttributes
-  , peekListAttributes
-  , pushListAttributes
-  , mkListAttributes
-  ) where
-
-import Data.Maybe (fromMaybe)
-import HsLua
-import Text.Pandoc.Definition ( ListAttributes, ListNumberStyle (DefaultStyle)
-                              , ListNumberDelim (DefaultDelim))
-
-typeListAttributes :: LuaError e => DocumentedType e ListAttributes
-typeListAttributes = deftype "ListAttributes"
-  [ operation Eq $ lambda
-    ### liftPure2 (==)
-    <#> parameter peekListAttributes "a" "ListAttributes" ""
-    <#> parameter peekListAttributes "b" "ListAttributes" ""
-    =#> functionResult pushBool "boolean" "whether the two are equal"
-  ]
-  [ property "start" "number of the first list item"
-      (pushIntegral, \(start,_,_) -> start)
-      (peekIntegral, \(_,style,delim) -> (,style,delim))
-  , property "style" "style used for list numbering"
-      (pushString . show, \(_,classes,_) -> classes)
-      (peekRead, \(start,_,delim) -> (start,,delim))
-  , property "delimiter" "delimiter of list numbers"
-      (pushString . show, \(_,_,delim) -> delim)
-      (peekRead, \(start,style,_) -> (start,style,))
-  , method $ defun "clone"
-    ### return
-    <#> udparam typeListAttributes "a" ""
-    =#> functionResult (pushUD typeListAttributes) "ListAttributes"
-          "cloned ListAttributes value"
-  ]
-
--- | Pushes a 'ListAttributes' value as userdata object.
-pushListAttributes :: LuaError e => Pusher e ListAttributes
-pushListAttributes = pushUD typeListAttributes
-
--- | Retrieve a 'ListAttributes' triple, either from userdata or from a
--- Lua tuple.
-peekListAttributes :: LuaError e => Peeker e ListAttributes
-peekListAttributes = retrieving "ListAttributes" . choice
-  [ peekUD typeListAttributes
-  , peekTriple peekIntegral peekRead peekRead
-  ]
-
--- | Constructor for a new 'ListAttributes' value.
-mkListAttributes :: LuaError e => DocumentedFunction e
-mkListAttributes = defun "ListAttributes"
-  ### liftPure3 (\mstart mstyle mdelim ->
-                   ( fromMaybe 1 mstart
-                   , fromMaybe DefaultStyle mstyle
-                   , fromMaybe DefaultDelim mdelim
-                   ))
-  <#> optionalParameter peekIntegral "integer" "start" "number of first item"
-  <#> optionalParameter peekRead "string" "style" "list numbering style"
-  <#> optionalParameter peekRead "string" "delimiter" "list number delimiter"
-  =#> functionResult pushListAttributes "ListAttributes" "new ListAttributes"
-  #? "Creates a new ListAttributes object."