git.iko.soy/typeable/pandoc
on master help sign in
Pretty: Added quote, doubleQuote.
369502bJohn MacFarlane
src/Text/Pandoc/Pretty.hs+10
compare with master
unifiedsplit
@@ -63,6 +63,8 @@ module Text.Pandoc.Pretty (
63 , braces
63 , braces
64 , brackets
64 , brackets
65 , parens
65 , parens
66+ , quotes
67+ , doubleQuotes
66 )
68 )
67
69
68where
70where
@@ -417,3 +419,11 @@ brackets = inside (char '[') (char ']')
417-- | Puts a 'Doc' in parentheses.
419-- | Puts a 'Doc' in parentheses.
418parens :: Doc -> Doc
420parens :: Doc -> Doc
419parens = inside (char '(') (char ')')
421parens = inside (char '(') (char ')')
422+
423+-- | Wraps a 'Doc' in single quotes.
424+quotes :: Doc -> Doc
425+quotes = inside (char '\'') (char '\'')
426+
427+-- | Wraps a 'Doc' in double quotes.
428+doubleQuotes :: Doc -> Doc
429+doubleQuotes = inside (char '"') (char '"')