diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-14 23:24:45 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-14 23:24:45 -0700 |
| commit | 3e8bd8aa15a57c3dc87772049aabedeb1e0c7582 (patch) | |
| tree | 125c54f389a2208977a7c558dd4332dba398e9f9 /src/Text | |
| parent | 2a6e6324a6db7151a4bb103227893af47d61f84d (diff) | |
| download | pandoc-3e8bd8aa15a57c3dc87772049aabedeb1e0c7582.tar.gz | |
Updated for removed unMeta, unFormat in pandoc-types.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 5fbbb6afc..557658bc8 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -176,10 +176,10 @@ blockToRST (Para inlines) | otherwise = do contents <- inlineListToRST inlines return $ contents <> blankline -blockToRST (RawBlock f str) +blockToRST (RawBlock f@(Format f') str) | f == "rst" = return $ text str | otherwise = return $ blankline <> ".. raw:: " <> - text (map toLower $ unFormat f) $+$ + text (map toLower f') $+$ (nest 3 $ text str) $$ blankline blockToRST HorizontalRule = return $ blankline $$ "--------------" $$ blankline |