From 8efc6773685ed7a3d18c4ecd5047eb09a25f1ace Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 4 Oct 2019 18:21:30 +0300
Subject: [PATCH] Fix all hlint warnings in Muse reader
---
src/Text/Pandoc/Readers/Muse.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 0b2ee9ff3..b7a1ce7ad 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -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)