From 6aa5010617bda83e86483f1bb809a61a74a3cf8a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 19 Dec 2010 10:13:11 -0800
Subject: Pretty: Added braces and brackets.

---
 src/Text/Pandoc/Pretty.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index e8b27df91..950d9a406 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -59,6 +59,8 @@ module Text.Pandoc.Pretty (
      , hsep
      , vcat
      , vsep
+     , braces
+     , brackets
      )
 
 where
@@ -393,3 +395,10 @@ chop n cs = case break (=='\n') cs of
                                      else take n xs : chop n (drop n xs ++ ys)
                                    where len = length xs
 
+-- | Puts a 'Doc' in curly braces.
+braces :: Doc -> Doc
+braces d = char '{' <> d <> char '}'
+
+-- | Puts a 'Doc' in square brackets.
+brackets :: Doc -> Doc
+brackets d = char '[' <> d <> char ']'
-- 
cgit v1.2.3