From c636b5dd1640c1f13f21bb2828c817213455229f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 12 Oct 2021 20:08:35 -0700
Subject: Revert "Depend on pandoc-types 1.23, remove Null constructor on
 Block."

This reverts commit fb0d6c7cb63a791fa72becf21ed493282e65ea91.
---
 src/Text/Pandoc/Writers/Ms.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc/Writers/Ms.hs')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 332368a67..eeb8eca62 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -110,6 +110,7 @@ blockToMs :: PandocMonad m
           => WriterOptions -- ^ Options
           -> Block         -- ^ Block element
           -> MS m (Doc Text)
+blockToMs _ Null = return empty
 blockToMs opts (Div (ident,cls,kvs) bs) = do
   let anchor = if T.null ident
                   then empty
-- 
cgit v1.2.3