@@ -875,8 +875,7 @@ verbatimTag = return . B.text
875875classTag :: PandocMonad m => MuseParser m (F Inlines)
876876classTag = do
877877 classes <- maybe [] words . lookup "name" <$> openTag "class"
878− res <- manyTill inline $ closeTag "class"
879− return $ B.spanWith ("", classes, []) <$> mconcat res
878+ fmap (B.spanWith ("", classes, [])) . mconcat <$> manyTill inline (closeTag "class")
880879
881880-- | Parse "~~" as nonbreaking space.
882881nbsp :: PandocMonad m => MuseParser m (F Inlines)