@@ -295,10 +295,10 @@ tableColToConTeXt tabl (align, width, blocks) = do
295 then empty
295 then empty
296 else "width=" <> braces (text (printf "%.2f\\textwidth" width))
296 else "width=" <> braces (text (printf "%.2f\\textwidth" width))
297 let halign = alignToConTeXt align
297 let halign = alignToConTeXt align
298− let options = (if keys == empty
298+ let options = (if isEmpty keys
299 then empty
299 then empty
300 else brackets keys) <> space
300 else brackets keys) <> space
301− where keys = hcat $ intersperse "," $ filter (empty /=) [halign, colwidth]
301+ where keys = hcat $ intersperse "," $ filter (not . isEmpty) [halign, colwidth]
302 tableCellToConTeXt tabl options cellContents
302 tableCellToConTeXt tabl options cellContents
304tableCellToConTeXt :: PandocMonad m => Tabl -> Doc -> Doc -> WM m Doc
304tableCellToConTeXt :: PandocMonad m => Tabl -> Doc -> Doc -> WM m Doc
@@ -482,13 +482,13 @@ sectionHeader (ident,classes,kvs) hdrLevel lst = do
482 let ident' = if null ident
482 let ident' = if null ident
483 then empty
483 then empty
484 else "reference=" <> braces (text (toLabel ident))
484 else "reference=" <> braces (text (toLabel ident))
485− let contents' = if contents == empty
485+ let contents' = if isEmpty contents
486 then empty
486 then empty
487 else "title=" <> braces contents
487 else "title=" <> braces contents
488− let options = if keys == empty || levelText == empty
488+ let options = if isEmpty keys || isEmpty levelText
489 then empty
489 then empty
490 else brackets keys
490 else brackets keys
491− where keys = hcat $ intersperse "," $ filter (empty /=) [contents', ident']
491+ where keys = hcat $ intersperse "," $ filter (not . isEmpty) [contents', ident']
492 let starter = if writerSectionDivs opts
492 let starter = if writerSectionDivs opts
493 then "\\start"
493 then "\\start"
494 else "\\"
494 else "\\"