{- | Copyright : © 2021-2023 Albert Krewinkel SPDX-License-Identifier : MIT Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de> Marshaling/unmarshaling functions of 'QuoteType' values. -} module Text.Pandoc.Lua.Marshal.QuoteType ( peekQuoteType , pushQuoteType ) where import HsLua import Text.Pandoc.Definition (QuoteType) -- | Retrieves a 'QuoteType' value from a string. peekQuoteType :: Peeker e QuoteType peekQuoteType :: forall e. Peeker e QuoteType peekQuoteType = forall a e. Read a => Peeker e a peekRead -- | Pushes a 'QuoteType' value as a string. pushQuoteType :: Pusher e QuoteType pushQuoteType :: forall e. Pusher e QuoteType pushQuoteType = forall e. String -> LuaE e () pushString forall b c a. (b -> c) -> (a -> b) -> a -> c . forall a. Show a => a -> String show