@@ -275,7 +275,7 @@ blockElements = choice [ mempty <$ blankline
275275 , header
276276 , example
277277 , exampleTag
278− , literal
278+ , literalTag
279279 , centerTag
280280 , rightTag
281281 , quoteTag
@@ -351,8 +351,8 @@ exampleTag = try $ do
351351 (attr, contents) <- htmlElement "example"
352352 return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents
353353
354−literal :: PandocMonad m => MuseParser m (F Blocks)
355−literal = do
354+literalTag :: PandocMonad m => MuseParser m (F Blocks)
355+literalTag = do
356356 guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
357357 (return . rawBlock) <$> htmlElement "literal"
358358 where