summaryrefslogtreecommitdiff
path: root/pandoc-lua-engine/src
diff options
context:
space:
mode:
Diffstat (limited to 'pandoc-lua-engine/src')
-rw-r--r--pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
index a71aeb952..377ce159b 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
@@ -19,16 +19,12 @@ module Text.Pandoc.Lua.Marshal.Format
import HsLua
import Text.Pandoc.Extensions (Extension, Extensions, extensionsFromList, readExtension)
import Text.Pandoc.Format (ExtensionsConfig (..))
-import qualified HsLua.Core.Utf8 as UTF8
-- | Retrieves an 'Extensions' set from the Lua stack.
peekExtension :: LuaError e => Peeker e Extension
peekExtension idx = do
extString <- peekString idx
- case readExtension extString of
- Just ext -> return ext
- Nothing -> failPeek . UTF8.fromString $
- "Unknown extension: " <> extString
+ return $ readExtension extString
{-# INLINE peekExtension #-}
-- | Retrieves an 'Extensions' set from the Lua stack.