@@ -295,10 +295,10 @@ tableColToConTeXt tabl (align, width, blocks) = do
295295 then empty
296296 else "width=" <> braces (text (printf "%.2f\\textwidth" width))
297297 let halign = alignToConTeXt align
298− let options = (if keys == empty
298+ let options = (if isEmpty keys
299299 then empty
300300 else brackets keys) <> space
301− where keys = hcat $ intersperse "," $ filter (empty /=) [halign, colwidth]
301+ where keys = hcat $ intersperse "," $ filter (not . isEmpty) [halign, colwidth]
302302 tableCellToConTeXt tabl options cellContents
303303
304304tableCellToConTeXt :: PandocMonad m => Tabl -> Doc -> Doc -> WM m Doc
@@ -482,13 +482,13 @@ sectionHeader (ident,classes,kvs) hdrLevel lst = do
482482 let ident' = if null ident
483483 then empty
484484 else "reference=" <> braces (text (toLabel ident))
485− let contents' = if contents == empty
485+ let contents' = if isEmpty contents
486486 then empty
487487 else "title=" <> braces contents
488− let options = if keys == empty || levelText == empty
488+ let options = if isEmpty keys || isEmpty levelText
489489 then empty
490490 else brackets keys
491− where keys = hcat $ intersperse "," $ filter (empty /=) [contents', ident']
491+ where keys = hcat $ intersperse "," $ filter (not . isEmpty) [contents', ident']
492492 let starter = if writerSectionDivs opts
493493 then "\\start"
494494 else "\\"