From 40796972812fe7a29d04eb430bee704383736221 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 13 Nov 2018 18:43:46 +0300
Subject: Muse writer: output tables with one column as grid tables

---
 src/Text/Pandoc/Writers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 2001c56fd..1d7a3fd77 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -281,7 +281,7 @@ blockToMuse (Header level (ident,_,_) inlines) = do
 -- https://www.gnu.org/software/emacs-muse/manual/muse.html#Horizontal-Rules-and-Anchors
 blockToMuse HorizontalRule = return $ blankline $$ "----" $$ blankline
 blockToMuse (Table caption aligns widths headers rows) =
-  if all (== 0.0) widths
+  if all (== 0.0) widths && length widths > 1
     then simpleTable caption headers rows
     else do
       opts <- asks envOptions
-- 
cgit v1.2.3