diff options
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling/AST.hs')
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AST.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs index 1e635483c..5791b39c1 100644 --- a/src/Text/Pandoc/Lua/Marshaling/AST.hs +++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs @@ -48,7 +48,9 @@ import Control.Monad.Catch (throwM) import Control.Monad ((<$!>), (>=>)) import Data.Data (showConstr, toConstr) import Data.Text (Text) +import Data.Version (Version) import HsLua hiding (Operation (Div)) +import HsLua.Module.Version (peekVersionFuzzy) import Text.Pandoc.Definition import Text.Pandoc.Error (PandocError (PandocLuaError)) import Text.Pandoc.Lua.Util (pushViaConstr', pushViaConstructor) @@ -616,5 +618,8 @@ instance Peekable Meta where instance Peekable Pandoc where peek = forcePeek . peekPandoc +instance Peekable Version where + peek = forcePeek . peekVersionFuzzy + instance {-# OVERLAPPING #-} Peekable Attr where peek = forcePeek . peekAttr |