@@ -38,11 +38,11 @@ import Data.Text (Text, unpack)
3838import Text.Pandoc.Class (PandocMonad)
3939import Text.Pandoc.Definition
4040import Text.Pandoc.Options
41−import Debug.Trace
41+
4242-- | Parse a CommonMark formatted string into a 'Pandoc' structure.
4343readGFM :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4444readGFM opts s = return $
45− nodeToPandoc $ traceShowId $ commonmarkToNode opts' exts s
45+ nodeToPandoc $ commonmarkToNode opts' exts s
4646 where opts' = [optSmart | enabled Ext_smart]
4747 exts = [extStrikethrough, extTable, extAutolink]
4848 enabled x = extensionEnabled x (readerExtensions opts)
@@ -91,10 +91,10 @@ addBlock (Node _ (LIST listAttrs) nodes) =
9191addBlock (Node _ (TABLE alignments) nodes) = do
9292 (Table [] aligns widths headers rows :)
9393 where aligns = map fromTableCellAlignment alignments
94− fromTableCellAlignment None = AlignDefault
95− fromTableCellAlignment CMarkGFM.Left = AlignLeft
96− fromTableCellAlignment CMarkGFM.Right = AlignRight
97− fromTableCellAlignment Center = AlignCenter
94+ fromTableCellAlignment NoAlignment = AlignDefault
95+ fromTableCellAlignment LeftAligned = AlignLeft
96+ fromTableCellAlignment RightAligned = AlignRight
97+ fromTableCellAlignment CenterAligned = AlignCenter
9898 widths = replicate numcols 0.0
9999 numcols = if null rows'
100100 then 0