@@ -65,11 +65,11 @@ instance StackValue Meta where
6565instance StackValue MetaValue where
6666 push lua = \case
6767 MetaBlocks blcks -> pushViaConstructor lua "MetaBlocks" blcks
68− MetaBool b -> pushViaConstructor lua "MetaBool" b
68+ MetaBool bool -> push lua bool
6969 MetaInlines inlns -> pushViaConstructor lua "MetaInlines" inlns
7070 MetaList metalist -> pushViaConstructor lua "MetaList" metalist
7171 MetaMap metamap -> pushViaConstructor lua "MetaMap" metamap
72− MetaString cs -> pushViaConstructor lua "MetaString" cs
72+ MetaString str -> push lua str
7373 peek lua idx = do
7474 luatype <- ltype lua idx
7575 case luatype of