opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-21 05:43:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix all hlint warnings in Muse reader

Browse Source
This commit is contained in:
Alexander Krotov
2019-10-04 18:22:05 +03:00
parent 638c2ed460
commit 8efc677368
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Muse.hs
+2 -2
View File
@@ -642,7 +642,7 @@ data MuseTableElement = MuseHeaderRow [Blocks]
museToPandocTable :: MuseTable -> Blocks
museToPandocTable (MuseTable caption headers body footers) =
B.table caption attrs headRow (rows ++ body ++ footers)
where attrs = const (AlignDefault, 0.0) <$> transpose (headers ++ body ++ footers)
where attrs = (AlignDefault, 0.0) <$ transpose (headers ++ body ++ footers)
(headRow, rows) = fromMaybe ([], []) $ uncons headers
museAppendElement :: MuseTableElement
@@ -690,7 +690,7 @@ museGridTable = try $ do
indices <- museGridTableHeader
fmap rowsToTable . sequence <$> many1 (museGridTableRow indent indices)
where rowsToTable rows = B.table mempty attrs [] rows
where attrs = const (AlignDefault, 0.0) <$> transpose rows
where attrs = (AlignDefault, 0.0) <$ transpose rows
-- | Parse a table.
table :: PandocMonad m => MuseParser m (F Blocks)