From fb0d6c7cb63a791fa72becf21ed493282e65ea91 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 1 Oct 2021 15:42:00 -0700
Subject: Depend on pandoc-types 1.23, remove Null constructor on Block.

---
 src/Text/Pandoc/Lua/Marshaling/AST.hs | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/Text/Pandoc/Lua')

diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index 8e12d232c..a1ad2cda3 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -165,7 +165,6 @@ pushBlock = \case
   LineBlock blcks          -> pushViaConstructor "LineBlock" blcks
   OrderedList lstAttr list -> pushViaConstructor "OrderedList" list
                                                  (LuaListAttributes lstAttr)
-  Null                     -> pushViaConstructor "Null"
   Para blcks               -> pushViaConstructor "Para" blcks
   Plain blcks              -> pushViaConstructor "Plain" blcks
   RawBlock f cs            -> pushViaConstructor "RawBlock" f cs
@@ -189,7 +188,6 @@ peekBlock idx = defineHowTo "get Block value" $! do
       "OrderedList"    -> (\(LuaListAttributes lstAttr, lst) ->
                              OrderedList lstAttr lst)
                           <$!> elementContent
-      "Null"           -> return Null
       "Para"           -> Para <$!> elementContent
       "Plain"          -> Plain <$!> elementContent
       "RawBlock"       -> uncurry RawBlock <$!> elementContent
-- 
cgit v1.2.3