diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index e95874ca8..9c9123a47 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -231,7 +231,7 @@ exampleBlock blockAttrs _label = do newline content <- rawBlockContent "example" let id' = fromMaybe mempty $ blockAttrName blockAttrs - let codeBlck = B.codeBlockWith (id', "example":classes, kv) content + let codeBlck = B.codeBlockWith (id', classes, kv) content return . return $ codeBlck rawBlockLines :: Monad m => (Text -> F Blocks) -> Text -> OrgParser m (F Blocks) @@ -558,7 +558,7 @@ example = try $ returnF . exampleCode . T.unlines =<< many1 exampleLine exampleLine = try $ exampleLineStart *> anyLine exampleCode :: Text -> Blocks -exampleCode = B.codeBlockWith ("", ["example"], []) +exampleCode = B.codeBlockWith ("", [], []) -- |