Muse reader: refactor parseAnchor
commit51e8a79023758f4c424d861b0b1aa25578ed62d0
authorAlexander Krotov <ilabdsf@gmail.com>
dateTue 3 Apr 2018, 15:03 (9 years ago)
parent7de6f08
src/Text/Pandoc/Readers/Muse.hs+1−3
@@ -778,9 +778,7 @@ parseAnchor :: PandocMonad m => MuseParser m String
778778parseAnchor = try $ do
779779 getPosition >>= \pos -> guard (sourceColumn pos == 1)
780780 char '#'
781− first <- letter
782− rest <- many (letter <|> digit)
783− return $ first:rest
781+ (:) <$> letter <*> many (letter <|> digit)
784782
785783anchor :: PandocMonad m => MuseParser m (F Inlines)
786784anchor = try $ do