From 51e8a79023758f4c424d861b0b1aa25578ed62d0 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 3 Apr 2018 15:03:42 +0300 Subject: Muse reader: refactor parseAnchor --- src/Text/Pandoc/Readers/Muse.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index bfde07eae..22f703e7d 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -778,9 +778,7 @@ parseAnchor :: PandocMonad m => MuseParser m String parseAnchor = try $ do getPosition >>= \pos -> guard (sourceColumn pos == 1) char '#' - first <- letter - rest <- many (letter <|> digit) - return $ first:rest + (:) <$> letter <*> many (letter <|> digit) anchor :: PandocMonad m => MuseParser m (F Inlines) anchor = try $ do -- cgit v1.2.3