git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: refactor parseAnchor
51e8a79Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−3
compare with master
unifiedsplit
@@ -778,9 +778,7 @@ parseAnchor :: PandocMonad m => MuseParser m String
778parseAnchor = try $ do
778parseAnchor = try $ do
779 getPosition >>= \pos -> guard (sourceColumn pos == 1)
779 getPosition >>= \pos -> guard (sourceColumn pos == 1)
780 char '#'
780 char '#'
781− first <- letter
782− rest <- many (letter <|> digit)
781+ (:) <$> letter <*> many (letter <|> digit)
783− return $ first:rest
784
782
785anchor :: PandocMonad m => MuseParser m (F Inlines)
783anchor :: PandocMonad m => MuseParser m (F Inlines)
786anchor = try $ do
784anchor = try $ do