diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 21:29:22 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 21:32:53 -0700 |
commit | b201a8aa582e1146243796fac26e57579af55f5f (patch) | |
tree | cae58e93223b93ba09f701367b2f0dc95b4f1ad1 /src/Text/Pandoc/Readers/CommonMark.hs | |
parent | f3e901c29d9a1ca82a1b35ea13df4e673e753443 (diff) | |
download | pandoc-b201a8aa582e1146243796fac26e57579af55f5f.tar.gz |
hlint changes.
Diffstat (limited to 'src/Text/Pandoc/Readers/CommonMark.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/CommonMark.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/CommonMark.hs b/src/Text/Pandoc/Readers/CommonMark.hs index 8189e7760..6b864521f 100644 --- a/src/Text/Pandoc/Readers/CommonMark.hs +++ b/src/Text/Pandoc/Readers/CommonMark.hs @@ -132,12 +132,12 @@ addBlock opts (Node _ (LIST listAttrs) nodes) = setTightness = if listTight listAttrs then map paraToPlain else id - paraToPlain (Para xs) = Plain (xs) + paraToPlain (Para xs) = Plain xs paraToPlain x = x delim = case listDelim listAttrs of PERIOD_DELIM -> Period PAREN_DELIM -> OneParen -addBlock opts (Node _ (TABLE alignments) nodes) = do +addBlock opts (Node _ (TABLE alignments) nodes) = (Table [] aligns widths headers rows :) where aligns = map fromTableCellAlignment alignments fromTableCellAlignment NoAlignment = AlignDefault |