@@ -219,11 +219,15 @@ blockToRST (Table caption _ widths headers rows) = do
219219 else blankline <> text "Table: " <> caption'
220220 headers' <- mapM blockListToRST headers
221221 rawRows <- mapM (mapM blockListToRST) rows
222− let isSimple = all (==0) widths && all (all (\bs -> length bs <= 1)) rows
222+ -- let isSimpleCell [Plain _] = True
223+ -- isSimpleCell [Para _] = True
224+ -- isSimpleCell [] = True
225+ -- isSimpleCell _ = False
226+ -- let isSimple = all (==0) widths && all (all isSimpleCell) rows
223227 let numChars = maximum . map offset
224228 opts <- get >>= return . stOptions
225229 let widthsInChars =
226− if isSimple
230+ if all (== 0) widths
227231 then map ((+2) . numChars) $ transpose (headers' : rawRows)
228232 else map (floor . (fromIntegral (writerColumns opts) *)) widths
229233 let hpipeBlocks blocks = hcat [beg, middle, end]