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