diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index db3295e59..abe5f66ce 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -69,7 +69,6 @@ import Text.Pandoc.CSS (foldOrElse, pickStyleAttrProps) import Data.Monoid ((<>)) import Text.Parsec.Error import qualified Data.Set as Set -import Debug.Trace (traceShowId) -- | Convert HTML-formatted string to 'Pandoc' document. readHtml :: ReaderOptions -- ^ Reader options @@ -450,7 +449,7 @@ pTable = try $ do | otherwise -> r let rows = map addEmpties rows'' let aligns = replicate cols AlignDefault - let widths = if null (traceShowId widths') + let widths = if null widths' then if isSimple then replicate cols 0 else replicate cols (1.0 / fromIntegral cols) |