    {- |
    Copyright               : © 2021-2025 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 = Peeker e QuoteType
    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 = String -> LuaE e ()
    forall e. String -> LuaE e ()
    pushString (String -> LuaE e ())
    -> (QuoteType -> String) -> QuoteType -> LuaE e ()
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . QuoteType -> String
    forall a. Show a => a -> String
    show