module Text.Pandoc.Lua.Marshal.Format
( peekFormat
, pushFormat
) where
import Control.Monad ((<$!>))
import HsLua
import Text.Pandoc.Definition (Format (Format))
peekFormat :: Peeker e Format
peekFormat :: forall e. Peeker e Format
peekFormat StackIndex
idx = Text -> Format
Format forall (m :: * -> *) a b. Monad m => (a -> b) -> m a -> m b
<$!> forall e. Peeker e Text
peekText StackIndex
idx
pushFormat :: Pusher e Format
pushFormat :: forall e. Pusher e Format
pushFormat (Format Text
f) = forall e. Pusher e Text
pushText Text
f