From 296788ec2be20539ed3450adc4569a94b0d91c49 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 20 Oct 2022 21:29:29 -0700 Subject: T.P.Lua.Module.Pandoc: Remove `pushModule`. This is not used and is not an exported function; it's dead code. @tarleb if there is some reason to keep this here, please feel free to revert this. --- pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'pandoc-lua-engine') diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs index 60f74d8b0..b42bdc50f 100644 --- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs +++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs @@ -14,8 +14,7 @@ Pandoc module for lua. -} module Text.Pandoc.Lua.Module.Pandoc - ( pushModule - , documentedModule + ( documentedModule ) where import Prelude hiding (read) @@ -26,7 +25,7 @@ import Data.Data (Data, dataTypeConstrs, dataTypeOf, showConstr) import Data.Default (Default (..)) import Data.Maybe (fromMaybe) import Data.Proxy (Proxy (Proxy)) -import HsLua hiding (pushModule) +import HsLua import System.Exit (ExitCode (..)) import Text.Pandoc.Definition import Text.Pandoc.Error (PandocError (..)) @@ -40,7 +39,7 @@ import Text.Pandoc.Lua.Marshal.Sources (peekSources) import Text.Pandoc.Lua.Marshal.WriterOptions ( peekWriterOptions , pushWriterOptions) import Text.Pandoc.Lua.Module.Utils (sha1) -import Text.Pandoc.Lua.PandocLua (PandocLua (unPandocLua), liftPandocLua) +import Text.Pandoc.Lua.PandocLua (PandocLua (unPandocLua)) import Text.Pandoc.Lua.Writer.Classic (runCustom) import Text.Pandoc.Options ( ReaderOptions (readerExtensions) , WriterOptions (writerExtensions) ) @@ -56,13 +55,6 @@ import qualified Data.Set as Set import qualified Data.Text as T import qualified Text.Pandoc.UTF8 as UTF8 --- | Push the "pandoc" package to the Lua stack. Requires the `List` --- module to be loadable. -pushModule :: PandocLua NumResults -pushModule = do - liftPandocLua $ Lua.pushModule documentedModule - return 1 - documentedModule :: Module PandocError documentedModule = Module { moduleName = "pandoc" -- cgit v1.2.3