diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-22 00:22:28 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-22 00:22:28 -0800 |
| commit | 369502bbb4b15dd8636ecd1af1096c3f802ead0e (patch) | |
| tree | dee6a21b5474c0fa9dab4d27eefcad2c4bd17443 /src/Text/Pandoc/Pretty.hs | |
| parent | fd07db16e901720f1c5a9574786fdb6b097311cf (diff) | |
Pretty: Added quote, doubleQuote.
Diffstat (limited to 'src/Text/Pandoc/Pretty.hs')
| -rw-r--r-- | src/Text/Pandoc/Pretty.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index c6ba6fb01..54d65af6f 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -63,6 +63,8 @@ module Text.Pandoc.Pretty ( , braces , brackets , parens + , quotes + , doubleQuotes ) where @@ -417,3 +419,11 @@ brackets = inside (char '[') (char ']') -- | Puts a 'Doc' in parentheses. parens :: Doc -> Doc parens = inside (char '(') (char ')') + +-- | Wraps a 'Doc' in single quotes. +quotes :: Doc -> Doc +quotes = inside (char '\'') (char '\'') + +-- | Wraps a 'Doc' in double quotes. +doubleQuotes :: Doc -> Doc +doubleQuotes = inside (char '"') (char '"') |