Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix all hlint warnings in Muse reader

Browse source
This commit is contained in:
Alexander Krotov 2019-10-04 18:21:30 +03:00
parent 638c2ed460
commit 8efc677368
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Muse.hs
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)