diff options
Diffstat (limited to 'Text/Pandoc/Writers/ConTeXt.hs')
-rw-r--r-- | Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/ConTeXt.hs b/Text/Pandoc/Writers/ConTeXt.hs index c2a7dbf41..cd1d09e0c 100644 --- a/Text/Pandoc/Writers/ConTeXt.hs +++ b/Text/Pandoc/Writers/ConTeXt.hs @@ -140,7 +140,7 @@ blockToConTeXt (Para lst) = do blockToConTeXt (BlockQuote lst) = do contents <- blockListToConTeXt lst return $ Pad $ text "\\startblockquote" $$ contents $$ text "\\stopblockquote" -blockToConTeXt (CodeBlock str) = +blockToConTeXt (CodeBlock _ str) = return $ Reg $ text $ "\\starttyping\n" ++ str ++ "\n\\stoptyping\n" -- \n because \stoptyping can't have anything after it, inc. } blockToConTeXt (RawHtml str) = return $ Reg empty |