diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-19 15:26:21 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-19 15:26:21 +0300 |
| commit | 841784fb57b05a404646a608447ba5ac903a3a31 (patch) | |
| tree | 4063c309294e80b42636ed71336984dd99c32015 | |
| parent | 1b8c22de1df43a88c13f6d0d0c7c08f9bf84c7a5 (diff) | |
| download | pandoc-841784fb57b05a404646a608447ba5ac903a3a31.tar.gz | |
hlint Muse reader
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 024ede456..a1f0e19ac 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -124,7 +124,7 @@ parseMuse = do many directive firstSection <- parseBlocks rest <- many parseSection - let blocks = mconcat $ (firstSection : rest) + let blocks = mconcat (firstSection : rest) st <- getState let doc = runF (do Pandoc _ bs <- B.doc <$> blocks meta <- museMeta st @@ -182,8 +182,7 @@ openTag :: PandocMonad m => String -> MuseParser m [(String, String)] openTag tag = try $ do char '<' string tag - attrs <- manyTill attr (char '>') - return attrs + manyTill attr (char '>') where attr = try $ do many1 spaceChar @@ -278,8 +277,8 @@ parseBlocks = where nextSection = mempty <$ lookAhead headingStart parseEnd = mempty <$ eof - blockStart = ((B.<>) <$> (blockElements <|> emacsNoteBlock) - <*> parseBlocks) + blockStart = (B.<>) <$> (blockElements <|> emacsNoteBlock) + <*> parseBlocks listStart = do updateState (\st -> st { museInPara = False }) uncurry (B.<>) <$> (anyListUntil parseBlocks <|> amuseNoteBlockUntil parseBlocks) @@ -293,7 +292,7 @@ parseSection :: PandocMonad m => MuseParser m (F Blocks) parseSection = ((B.<>) <$> emacsHeading <*> parseBlocks) <|> - ((uncurry (B.<>)) <$> amuseHeadingUntil parseBlocks) + (uncurry (B.<>) <$> amuseHeadingUntil parseBlocks) parseBlocksTill :: PandocMonad m => MuseParser m a |