{- |
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