@@ -69,7 +69,6 @@ import Text.Pandoc.CSS (foldOrElse, pickStyleAttrProps)
69import Data.Monoid ((<>))
69import Data.Monoid ((<>))
70import Text.Parsec.Error
70import Text.Parsec.Error
71import qualified Data.Set as Set
71import qualified Data.Set as Set
72−import Debug.Trace (traceShowId)
74-- | Convert HTML-formatted string to 'Pandoc' document.
73-- | Convert HTML-formatted string to 'Pandoc' document.
75readHtml :: ReaderOptions -- ^ Reader options
74readHtml :: ReaderOptions -- ^ Reader options
@@ -450,7 +449,7 @@ pTable = try $ do
450 | otherwise -> r
449 | otherwise -> r
451 let rows = map addEmpties rows''
450 let rows = map addEmpties rows''
452 let aligns = replicate cols AlignDefault
451 let aligns = replicate cols AlignDefault
453− let widths = if null (traceShowId widths')
452+ let widths = if null widths'
454 then if isSimple
453 then if isSimple
455 then replicate cols 0
454 then replicate cols 0
456 else replicate cols (1.0 / fromIntegral cols)
455 else replicate cols (1.0 / fromIntegral cols)