{-# LANGUAGE NoImplicitPrelude #-}
module Text.Pandoc.Lua.Marshaling.AnyValue (AnyValue (..)) where
import Prelude
import Foreign.Lua (Peekable (peek), StackIndex)
newtype AnyValue = AnyValue StackIndex
instance Peekable AnyValue where
peek :: StackIndex -> Lua AnyValue
peek = AnyValue -> Lua AnyValue
forall (m :: * -> *) a. Monad m => a -> m a
return (AnyValue -> Lua AnyValue)
-> (StackIndex -> AnyValue) -> StackIndex -> Lua AnyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StackIndex -> AnyValue
AnyValue