@@ -275,7 +275,7 @@ blockElements = choice [ mempty <$ blankline
276 , example
276 , example
277 , exampleTag
277 , exampleTag
278− , literal
278+ , literalTag
279 , centerTag
279 , centerTag
280 , rightTag
280 , rightTag
281 , quoteTag
281 , quoteTag
@@ -351,8 +351,8 @@ exampleTag = try $ do
351 (attr, contents) <- htmlElement "example"
351 (attr, contents) <- htmlElement "example"
352 return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents
352 return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents
354−literal :: PandocMonad m => MuseParser m (F Blocks)
354+literalTag :: PandocMonad m => MuseParser m (F Blocks)
355−literal = do
355+literalTag = do
356 guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
356 guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
357 (return . rawBlock) <$> htmlElement "literal"
357 (return . rawBlock) <$> htmlElement "literal"