From b26f950ccaa0a1a973b282a516bd80295536feb2 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Tue, 2 Nov 2021 17:25:47 +0100 Subject: Lua: display Attr values using their native Haskell representation --- src/Text/Pandoc/Lua/Marshaling/Attr.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src') diff --git a/src/Text/Pandoc/Lua/Marshaling/Attr.hs b/src/Text/Pandoc/Lua/Marshaling/Attr.hs index a38bc6ec7..97e702e35 100644 --- a/src/Text/Pandoc/Lua/Marshaling/Attr.hs +++ b/src/Text/Pandoc/Lua/Marshaling/Attr.hs @@ -42,6 +42,10 @@ typeAttr = deftype "Attr" <#> parameter peekAttr "a1" "Attr" "" <#> parameter peekAttr "a2" "Attr" "" =#> functionResult pushBool "boolean" "whether the two are equal" + , operation Tostring $ lambda + ### liftPure show + <#> parameter peekAttr "Attr" "attr" "" + =#> functionResult pushString "string" "native Haskell representation" ] [ property "identifier" "element identifier" (pushText, \(ident,_,_) -> ident) -- cgit v1.2.3