Pretty: Added quote, doubleQuote.

2026-09-26 01:15:53 +00:00 · 2010-12-22 00:22:28 -08:00
parent fd07db16e9
commit 369502bbb4
1 changed files with 10 additions and 0 deletions
@@ -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 '"')