diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-08 11:06:50 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-12-08 11:06:50 +0100 |
| commit | 6708c6a7fcdb531fbb1848c3e4dd3e9a1a1609d1 (patch) | |
| tree | 38ad4c5f358795a3e251fb3b47c16e0d112397d1 | |
| parent | afa675b71ecffc3285031065c0eaa57fd90d9802 (diff) | |
| download | pandoc-6708c6a7fcdb531fbb1848c3e4dd3e9a1a1609d1.tar.gz | |
Removed debug trace from HTML reader.
| -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) |