diff options
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling/AnyValue.hs')
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AnyValue.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/AnyValue.hs b/src/Text/Pandoc/Lua/Marshaling/AnyValue.hs new file mode 100644 index 000000000..a5ff3f2ba --- /dev/null +++ b/src/Text/Pandoc/Lua/Marshaling/AnyValue.hs @@ -0,0 +1,26 @@ +{-# LANGUAGE NoImplicitPrelude #-} +{- | + Module : Text.Pandoc.Lua.Marshaling.AnyValue + Copyright : © 2017-2019 Albert Krewinkel + License : GNU GPL, version 2 or above + + Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de> + Stability : alpha + +Helper type to work with raw Lua stack indices instead of unmarshaled +values. + +TODO: Most of this module should be abstracted, factored out, and go +into HsLua. +-} +module Text.Pandoc.Lua.Marshaling.AnyValue (AnyValue (..)) where + +import Prelude +import Foreign.Lua (Peekable (peek), StackIndex) + +-- | Dummy type to allow values of arbitrary Lua type. This just wraps +-- stack indices, using it requires extra care. +newtype AnyValue = AnyValue StackIndex + +instance Peekable AnyValue where + peek = return . AnyValue |